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Das Geschicklichkeitsspiel für p® n Pp^®' h R a HP'' r .. hl _ narh | lnks durch einen aut drei Seiten geschlossenen Bildschirm. Auf der 
Wie in einem Squashcourt spielen Sie emen Ba^l wnwwits ac U s qeht Im Spielfeld selbst befinden sich unterschiedliche 

es Ihnen gelur^enfälle Hindernisse zu beseitigen, gelangen Sie in das nächste Bild von Bimbo, das Sie wiederum mit neuen Hin- 
KSSÄ alsTr’ein Spiel. Mittels des zum Programm gehörenden Editors sind Sie In der Lage, sich genau die Bilder 
zusammenzusetzen, die Sie gerne spielen möchten. 


BOMCER 


c"JL Hindern.« Jedoch werden Sie nicht nur durch herumliegende Findlinge gehandicapt 


jen. Daß es dies nicht 
.tun sind Sie gefordert, 

iÄi”lÄiälÄ 

ren blockieren den Weg, und der rachsüchtige Pilot einer Sportmaschine stellt Ihnen nach. 


5 1/4" Disk. Best.-Nr. 186 
3 1/2“ Disk. Best.-Nr. 187 


Underground Strategie & Action für Ihren PC! 


Sä 

süS^I&ssss:: 

WennSle GpÄÄ Ile Ihre Zielgenauigkei. im Steinwurf unter Beweis steilen, um 

SSh neng# \\ ngen! den kleinen Maulwurf aus den Katakomben des Schreckens zu befreien? 

Die Abenteuer des kleinen Maulwurfes sind für das System MS-DOS (CGA) erhältlich. 


Das Spiel 

mzmmmmim. 
WAS IST 
Uendetta 


für die ganze Familie! 

OteKnow-PC- 


4n'^V-PC - Frage- und Antwortspiel der Extraklasse 

- kann eine unbegrenzte Anzahl von Fragen und Antworten 
verwaltenl 

- bietet die Möglichkeit, eigene Fragen in einem selbslge- 
wähltem Wissensgebiet einzugeben, und zwar mit einem 
komfortablen Editor! 

- besitzt eine Supergrafik! 

- ist spielbar mit 1 bis 4 Einzelspielern oder in Gruppen mit 
einem Vielfachen davon! 

- muß man mit Strategie spielen, da der Beste in jedem 
Wissensgebiet am Ende noch Zusatzpunkte bekommt 1 

- verlangt keinerlei Programmierkenntnisse! 

- wird mit 13 verschiedenen Wissensgebieten ausgeliefert! 

- kann auch für andere Zwecke Verwendung finden, z.B. 
als Vokabeltrainer 

Konfiguration: 

PC XT/AT mit 512 KByte oder mehr, 1 Diskettenlaufwerk oder Festplat¬ 
te, MS-DOS ab Version 2.0 oder größer, für Farbgrafik, Monochrom 
Hercules oder EGA. 

5 Wi'-Disk Best.-Nr. 161 

3 l/PS-Disk Best. -Nr. 162 4FV . Ui / Bücher 

Software 
Zeitschriften 

• Unabhängig von der Anzahl der bestellten 
Programms berechnen für das Inland 
3,- DM bzw. für das Ausland 5.- DM 
Porto und Verpackung. - Unverbind¬ 
liche Preisempfehlung - Bitte be¬ 
nutzen Sie die Bestellkarte. 


f Postfach 250 
3440 Eschwege 

/ / / 

VüflK 

/ /Daten- und 
Medienverlag 


3Acm 


PC-SPmßOX NO.2 


Hier erwartet Sie ein Geschicklichkeitsspiel der besonderen Art. ailerdinas stehen diese unter Strom, so daß Jackey versu- 

Sie steuern einen kleinen Roboter. de ^° n n E h b ® n ®^ gilt es natürlich, möglichst nicht die vielen 

chen muß, durch die Lucken zu springen, ohne> dieEbeneri von unten zu oe können y sie auf Ihrem Weg nach oben eine ganze 
Monster zu berühren. die Jackey da o s n L ®^ Pfarr, dem bekannten DMV-Autor, 

CHe*Abenteuer des kleinen Jackey sind Im System MS-DOS erhältlich. 


STAR/fSIOI/ 


Ein excellentes Shoot em up aut Ihrem PC! . 1|R , r ., jcrhp KfPa , uren baben siC h dort eingenistet und behindern die Aktivitäten 
Besteigen Sie Ihr Schilf und retten Sie den Mond.^!® r lraische ^^esen zu befreien Die größte Hilfe bei Ihrer Aufgabe ist Ihr kleines 
der Menschen. Deshalb ist es letzt »m Ä ehe ,n ExÄÄÄsten können. Trotzdem keine einfache Aufgabe, da 

Raumschiff, daß Sie Im Wrlaul dieses Spieles mit zahlrcc ie ersten Sektor gesäubert haben, bekommen Sie ei- 

Starvision ist im System MS-DOS erhältlich. 


GH 


HD 


Best.-Nr. 5 1/4“ Disk. 1291 Best.-Nr. 3 1/2“ Disk. 1292 
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Editorial—| 



Liebe Leser, 

ein Schwerpunkt dieser Ausgabe ist das Thema Drucker. Nach wie vor 
Peripheriegerät Nr.l, ist jedoch in Sachen Kompatibilität und individueller 
Druckeranpassung noch viel Aufklärungsarbeit zu leisten. Viele kommerzielle 
Programme und nicht zuletzt auch die Listings der PC International können 
einfach nicht jeden sogenannten Druckerexoten unterstützen. Die 
Anpassungsprobleme liegen meist im Detail: Dort wird eine Leerzeile zuviel 
gedruckt, hier funktionieren die deutschen Umlaute nicht — diese und 
ähnliche Probleme haben wohl die meisten unter Ihnen auch durchlebt. 

Mit unserem Titelthema widmen wir uns diesen Problematiken und geben 
entscheidende Tips zur Selbsthilfe. Für Neueinsteiger, die sich in naher 
Zukunft einen Drucker zulegen wollen, leisten wir Kaufberatung, und die 
abschließende Marktübersicht zeigt das Spektrum der Vielfältigkeit auf dem 
Peripheriesektor. 

Für die CPC-Anwender haben wir wieder einmal einen Leckerbissen parat. 
Die Programme < Animator > und < Titel Designer > zeigen bisher 
ungeahnte Möglichkeiten der CPC-Grafik. Lassen Sie sich überraschen! 

Abschließend möchte ich noch einmal daraufhinweisen, daß sämtliche CPC- 
und Joyce-Sonderhefte (Ausnahme Joyce-Sonderheft Nr.l) noch direkt beim 
Verlag nachbestellt werden können. 


Herzlichst Ihr 



Stefan Ritter 
Chefredakteur 



2’89 PC 3 


















I—Inhalt 



Der Drucker gilt als wichtiges Ausgabegerät für jeden Computer. Welchen 
Drucker Sie an Ihren CPC ohne Problem anschließen können, zeigt unser 
Druckerbericht. 


S. 14 


Berichte: 


AMS-Line 12 

— Der direkte Draht zu Amstrad 


Gutenbergs Erben 14 

— Welcher Drucker läßt sich an den CPC anschlie¬ 
ßen? Informationen zur richtigen Wahl. 


Assembler: 


Die Assemblerecke 48 

— WYSIWYG — Verschiedene Schriftarten per 
Assemblerprogramm. 


Der Diskette aufs Byte geschaut 51 

- Volle Befehlsgewalt über das DD 1-Laufwerk - 
Assembler macht’s möglich. 



Verschieb und zugenäht. Hin Verschiehejlx fiir Mußestunden 

S. 62 


Programme: 

The Animator 

— Wie die Bilder laufen lernten... 

Bewegte Grafiken durch Designerprogramm und 
RSX-Befehle 

20 

Schieb mal wieder 

- Nichts für Denkfaule: Super-Verschiebefix für 
den CPC. 

62 

Tips & Tricks: 

Titel Designer 

- Der letzte Schliff für Spielprogramme 

34 



Noch nie war es so einfach, das Erstellen von Animationen. Mit einigen RSX- 
Befehlen und einem speziellen Creator wird es leicht gemacht. 

S. 20 


Kalender 

— Wo waren Sie in der Nacht vom Siebten auf den 
Achten? 

Mit unserem Kalenderprogramm ist alles klar, 
Herr Kommisar. 


Lister 

— Listings lesbar gemacht — unser komfortables 
Druckprogramm gibt Ihrem “Getipptem“ den pro¬ 
fessionellen Touch. 


SOT 

- Save Our Text 


100,- DM für 1KB 

- Wieder haben vier unserer Leser bewiesen, daß 
kleine Ursachen große Wirkung haben können. 
Unser fortlaufender Wettbewerb fordert Kreativi¬ 
tät und Speicherergonomie. 


39 


42 


44 


46 
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Ein Lehrling braucht Hilfe. Ein PC-Spielfür Kombinationsbegabte. 


S. 86 



Lassen Sie den PC für sich arbeiten. Die unbestechliche Kontoführung ver¬ 
waltet Ihr Geld. 


S. 90 
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I—Aktuell 



QuickDisk hilft bei Programmen 


Für die Anwender des MS-DOS 
4. xx und der Text Verarbeitung 
'WordPerfect' bietet der Sybex- 
Verlag in Düsseldorf eine etwas 
ungewöhnliche, aber dennoch 
sinnvolle Hilfestellung in Form 
einer handlichen Drehscheibe in 
der Größe einer Diskette an. 

Diese Scheiben sollen als Ar¬ 
beitshilfe direkt bei der Software 
in der Diskettenbox ihren Platz 
finden. 

Die Sybex QuickDisc DOS 4.xx 
zeigt auf der äußeren Umran¬ 
dung die deutsche Umschrei¬ 
bung des benötigten DOS-Be- 
fehls, wie z.B. 'Bildschirm lö¬ 
schen'. Durch Drehen der Pfeil- 
scheibe in Richtung dieser 
Umschreibung gelangt man zum 
Befehlswort, welches innerhalb 
eines Fensters zu sehen ist. also 
in diesem Falle das Wort CLS. 


Bei der Wordperfect-Scheibe 
sind in der äußeren Umrandung 
die Programmausführungen zu 
sehen, im Fenster erscheinen 
die dazu gültigen Tastenkombi¬ 
nationen. 

Bei der MS-WORD-4.0-Quiek 
Disk werden die Ausführungen 
ebenfalls in der Umrandung um¬ 
schrieben, während die Fen¬ 
ster der zu drehenden Scheibe 
die Tasten-Kontroll-Codes dar¬ 
stellt. 

Die Sybex-Quickdisks sind aus¬ 
schließlich im Buch- und Fach¬ 
handel erhältlich und kosten pro 
Stück DM 14,80. 

Info: 

Sybex-Verlag GmbH 
Postfach 300961 
D-4000 Düsseldorf 30 
Tel.: 0211 / 61802-0 


Neue Software für das GeoNet Mailbox System 


Eine neue Programmversion für 
das elektronische Mailbox-Sy¬ 
stem der GeoNet Systems 
GmbH in Haunetal wurde im 
November 1988 an alle GeoNet- 
Systembetreiber verschickt. 

Mit der Programm-Version 6.0 
wird jetzt auch eine 'Stapelbe- 
triebsweise’ unterstützt, durch 
sie kann auch nach Arbeitsende 
im Büro ein zeilgesteuerter Ver¬ 
sand der gesamten Tagespost 
mit einem PC abgewickclt wer¬ 
den. Eine Erweiterung zur 
'Stellvertreter-Funktion', die es 
den GeoNct-Teilnehmern er¬ 
möglicht, andere Adressen (vom 


E-MAIL-Tcilnehmer bis zum 
TELEX-Gerät) als Stellvertreter 
für eintreffende Post zu definie¬ 
ren, bezieht die Teilnehmer von 
Pre-X.400-Adressen und inter¬ 
nationalem Videotext (in der 
Bundesrepublik: Btx) in auto¬ 
matische Verteilerein. Damit ist 
die elektronische Kommunika¬ 
tion mit mehreren Menschen in 
der Welt möglich geworden. 

Info: 

GeoNet Pressereferat 
c/o MBK MediaBox 
Köln GmbH 
Informationstechnik- 
Zentrum Köln 


EGA und Hercules-Kit für den PC 1512 


PC-1512-Besitzer, die vom vor¬ 
handenen MDA- oder CGA- 
Grafikadapter auf EGA- oder 
Hercules-Grafik umsteigen wol¬ 
len. können zwei Erweiterungs- 
Kits von der Firma AMSTRAD 
erhalten. 

Der Hercules-Kit besteht aus ei¬ 
nem Hercules-Monochrom- 
Monitor und der dazugehören¬ 
den Hercules-Karte und kostet 
DM 599,-. Das zweite Paket 
besteht aus einem EGA-Farb- 
monitor mit EGA-Karte und ist 


zu einem Preis von DM 1899. — 
erhältlich. 

Beide Kits sind recht einfach an 
den PC anzuschließen, die Gra¬ 
fikkarten werden jeweils in ei¬ 
nen Erweiterungssteckplatz ein¬ 
gesteckt und durch entsprechen¬ 
de Kabel mit dem Monitor ver¬ 
bunden. 

Info: 

AMSTRAD GmbH 
Robert-Koch-Str. 5 
D-6Ü78 Neu-Isenburg 
Tel.: 06102 / 3002-0 



Software-Experiment hieß eine 
erfolgreiche Serie in der PC In¬ 
ternational. Die Programme 
dieser Serie bringt der DMV- 
Verlag nun als komplette Soft¬ 
waresammlung in Neuauflage 
auf Diskette oder Kassette her 
aus. Diverse Programme mit da¬ 
zugehörigem Handbuch vermit¬ 
teln dem CPC-Benutzer das 
Wissen über die Programmie¬ 
rung von Algorithmen und Da¬ 
tenstrukturen für die Erzeugung 
von Grafiken und intelligenten 
Programmen. Folgende Pro¬ 
gramme befinden sich auf dem 
Datenträger: 

- Fraktal-Generator 

- Das Spiel des Lebens 

- Ökologie Experiment 

- Gobang (Strategie) 

- Kalaha (Das Bohnenspiel) 


Minischach (Der Computer 
lernt das Schachspielen) 

— Wordmaster (ein Ratespiel) 

- Wortketten-Rätsel 

— Entwicklungshilfe per Com¬ 
puter 

- Pascal'sehe Dreiecke und 
ihre Grafik 

Diese Programme sind zusam¬ 
men mit einem 180 Seiten star¬ 
kem Handbuch für DM 59, 
(zzgl. Versandkosten) auf Kas¬ 
sette und für DM 69.— (zzgl. 
Versand kosten) auf Diskette 
beim DMV-Verlag zu beziehen. 

Info: 

DMV-Verlag 
Postfach 250 
3440 Eschwege 
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Aktuell i 


Formulare gemanagt 


Das Ingenieur-Büro für System¬ 
analysen Jansen liefert seit No¬ 
vember die Version 2.0 des 
'FORMULAR - MANAGER- 
plus : Programmes für PC aus. 
Dieses Software-Paket dient 
zum Entwerfen und Ausfüllen 
von Formularen fast aller Arten. 
Dabei kann an jeder gewünsch¬ 
ten Stelle innerhalb des Formu¬ 
lars die Schriftart, wie Normal-, 
Schmal-. Breit-, Fettschrift, un¬ 
terstrichen, hoch oder tief, ge¬ 
ändert werden. Die Länge und 
Breite eines Formulars ist unbe¬ 
grenzt. damit ist eine Bearbei¬ 
tung bis zum DIN-A3-Mehrsei- 
tenformular möglich. 

Die Druckerausgabc ist auf fast 
allen Druckerarten möglich, 
darunter auch Laserdruckern, 


Voraussetzung ist der integrierte 
IBM-Blockgrafiksatz. 

In der Grundversion werden ca. 
40 fertige Formulare mitgelie¬ 
fert. wie Rechnung, Liefer¬ 
schein. Kurzbriefe, Vollmach¬ 
ten, Verträge und auch Formula¬ 
re der Post, der Bahn und des 
Zolls, diese Formularsammlung 
wird laufend erweitert. 

Das Programmpaket kostet wei¬ 
terhin DM 260,-, Besitzer der 
Version 1.0 können einen Up- 
Grade-Service für DM 85.- in 
Anspruch nehmen. 

Info: 

Heiko Jansen 
Dipl.-Ing. 

Sommerstr. 17 
D-8000 München 90 
Tel.: 089/6519058 


Neues Handbuch zum Marconi Trackball 


Bei der Firma Weeske ist ab Fe¬ 
bruar ein neues Handbuch zum 
Soft- und Hardware-Paket 
'Easy-Art 4- Marconi RB2 
Trackerbair zu bekommen. 

Das Handbuch wird sich genau 
nach der original englischen 
Ausgabe richten und wesentlich 
umfangreicher als die bisher 
beigelegte Beschreibung sein. 
Der Preis dieses Handbuches 


stand bei Redaktionsschluß 
noch nicht fest, wird sich aber 
im üblichen annehmbaren Rah¬ 
men bewegen. Interessenten 
können weiter Informationen 
bei der Firma Weeske erfragen. 

Info: 

Weeske ComputerElektronik 
Potsdamer Ring 10 
D-7150 Backnang 
Tel.: 07191 / 1528-29 


Neues PC-TexIprogramm 


Ein neues PC-Textverarbei- 
tungsprogramm kommt von der 
PublicSoft GmbH in Gütersloh 
mit Namen TOPTEX. Dieses 
Textprogramm verfügt außer 
den bekannten Optionen, wie 
Serien¬ 
brieffunktion, integrierte Adreß- 
verwaltung, Taschenrechner. 
255 Zeichen ASCII-Tabelle, un¬ 
begrenzte Textgröße mit bis zu 
255 Zeichen pro Textzeile und 
anderem, auch über eine inte¬ 
grierte Festplatten- und Subdi¬ 
rectory-Verwaltung. Die Steue¬ 
rung geschieht über Menü-Fen¬ 
ster. zudem gibt es eine Funk¬ 
tionstastenschablone sowie ein 
deutsches Handbuch. 

Das Programm selbst kostet DM 
398,-. 

Als Zubehör sind zwei Module 
auf Diskette zum Preis von je¬ 


weils DM 49,50 zu erhalten, das 
erste Modul enthält ein Silben¬ 
trennprogramm in Deutsch mit 
sehr hoher Trenn Wahrschein¬ 
lichkeit und einer Selektions¬ 
möglichkeit für Adressen, die 
unter anderem nach Postleit¬ 
zahl, Kundengruppe, etc. geord¬ 
net werden können, Das zweite 
Modul enthält ein Korrekturhil¬ 
feprogramm mit deutschem 
Wörterbuch, dieses enthält 
30000 Wörter und ist vom An¬ 
wender beliebig erweiterbar. 

Die Grundvorraussetzung für 
die Installation dieses Program¬ 
mes ist ein lBM-oder kompati¬ 
bler PC mit zwei Laufwerken 
und mindestens 256 KB RAM. 

Info: 

PublicSoft GmbH 
Carl-Bertelsmann-Str. 41 
D-4830 Gütersloh 1 



'MaxaFit' heißt eine neue Ein¬ 
zelblatthalterung für alle Druk- 
ker. Diese Halterung wird auf 
den jeweiligen Drucker aufge- 
steckt und richtet das Einzel¬ 
blattpapier nach dem Zufuhren 
aus. Ist das Blatt mehrmals zu 
bedrucken, entfallt damit das 
zeitraubende Positionieren nach 
jedem Druck. Durch eine aufge¬ 
druckten Schablone läßt sich 
dazu jedes Blatt millimeterge¬ 
naujustieren. 

Die Einzelblatthalterung wird 
als Bausatz geliefert, alle Teile 


sind jedoch problemlos durch 

Steck-Kletnm-Einrichtungen 

aneinanderzufügen. 

MaxaFit' kostet in der Origi¬ 
nal version aus Großbritannien 
25,00 englische Pfund, ob es in 
der Bundesrepublik angeboten 
wird, stand bei Redaktions¬ 
schluß noch nicht fest. 

Info: 

Mr. C. Erik Andren R.I.B.A.. 

"Margin Maker“. 

Box 121 Gresham Road . 

Staines. Middx. 

TW182AJ. England. 


Neue Bücher 


Von TEW1 kommen zwei neue 
Bücher für PC-Anwender: 
MS-DOS 4.0 / PC-DOS 4.0 Ein¬ 
führung und Referenz bietet ei¬ 
nen Einblick in diese beiden fast 
identischen Betriebssysteme. 
Das Buch gibt zu allen wichti¬ 
gen DOS-Befehlen Hilfestellun¬ 
gen und Informationen. Ein 
DOS-Lexikon hilft bei der Su¬ 
che bestimmter Erklärungen. 
PC Tools Deluxe von Andreas 
Patschorke beschäftigt sich mit 
einem der bekanntesten Anwen¬ 
dungsprogramme für Notsitua¬ 


tionen am PC. Das Buch liefert 
Hinweise zum korrekten Arbei¬ 
ten mit dem PC Tools Deluxe 
Programm von Central Point 
Software und gibt dem Leser In¬ 
formationen über das Wieder¬ 
herstellen gelöschter Dateien 
und formatierter Harddisks. 

Das 185 Seiten starke Buch ko¬ 
stet DM 49,— 

Info: 

te-wi Verlag GmbH 
Theo-Prosei-Weg 1 
D-8000 München 40 
Tel.: 089/1292090 


Vom Sybex-Verlag stammt Das 
PC-Einsteigerbuch von Martin 
Kotul la. 

Dieses Buch richtet sich in er¬ 
ster Linie an die Einsteiger im 
PC-Bereich und an diejenigen, 
die sich in absehbarer Zeit einen 
PC zulegen wollen. Der Inhalt 
des Buches beschreibt die 
Grundlagen zum PC, die Instal¬ 
lation, die Betriebssysteme MS- 
DOS und PC-DOS, einige An¬ 


wendungsprogramme. die An 
Wendung von Programmierspra¬ 
chen auf dem PC. Fehler, ihre 
Ursachen und Beseitigung und 
Tips und Ratschläge zur Kauf¬ 
entscheidung. 

Der Umlang des Buches beträgt 
288 Seiten, der Preis DM 29,-. 

Info: 

Sybex-Verlag GmbH 
Postfach 300961 
D-4000 Düsseldorf 30 
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An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro¬ 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant- 
wortet. | hre pc-Redaktion 


Neue Durchwahlnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 - 20.00 Uhr stehen Ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

o (0 56 51) 80 09 -16 

Jürgen Borngießer 
(CPC) 

o (0 56 51) 80 09 -17 

Ralf Schößler (PCW) 

o(0 56 51)80 09 -18 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben 


ArtWorx und LC 10 


Ich war auf Anhieb von Art¬ 
Worx begeistert. Leider lie¬ 
ferte mein Star LC-10 keinen 
korrekten Ausdruck, und 
das, obwohl die voreinge¬ 
stellten Steuersequenzen ge¬ 
nau richtig waren. Beim De¬ 
buggen von ARTWORX. PRG 
stellte sich dann heraus, daß 
Zeichen ’zu schnell' zum 
Drucker geschickt werden, 
ohne einen eventuellen Busy- 
Zustand abzuwarten. Dem 
ist jedoch mit dem CP/M- 
Programm DDT schnell ab¬ 
zuhelfen. Im nachstehenden 
Protokoll wurde außerdem 
eine abschließende Null in 
der Steuersequenz berück¬ 
sichtigt, so wie in ART¬ 
WORX. BA S beschrieben. 
Wer kein zweites Laufwerk 
hat, muß ARTWORX. PRG 
zum Beispiel mit FILECOP Y 
auf die Kopie seiner System¬ 
diskette und nach 'Behand¬ 
lung ' wieder zurückbringen. 

Übrigens: Die POKEs in 
A R TWORX. BA S bewi rken 
gar nichts! Wer keinen EP¬ 
SON-kompatiblen Druk- 

ker hat, muß ARTWORX. 
PRG anpassen (u.a. mit 
DDT, die Sequenzen liegen 
bei 0183 und 0187). Hier der 
Anpassungsvorgang (Die 
Eingaben vom Benutzer sind 
in Kleinschrift, die Rechner¬ 
ausgaben in Großschrift dar¬ 
gestellt): 


A >ddt b.artworx.prg 
DDT VERS 2.2 
NEXTPC 
1780 0100 
-a0497 

0497 call 044d 
049A . 

-a049d 

049D call 044d 
04A0. 

-a04a4 

04A4 cnz 044d 
04A7. 

-a04b8 

04B8 call 044d 
04BB. 

-a04be 

04BE call 044d 
04C1 . 

-a04c4 

04C4 call 044d 
04C7. 

-a04ca 

04CA call 044d 
04CD. 

-a04d0 
04D0 ora a 
04D1 cnz 044d 
04D4 mvi b,50 
04D6. 

-s04d6 
04D6 E5 0 
04D70I 0 
04D8 00 c5 
04D9 00 e5 
04DA ED 7c 
04DB 43 4d 
04DC95 2I 
04DD ED 04 
04DF 43 06 
04E0 9708 
04E1 04 36 
04E2 ED 00 


04E3 43 23 
04E4 99 10 
04E5 04 fb 
04E6 ED 67 
04E743 69 
04E8 9B 00 
04E9 04 00 
04EA 06 . 

-a055f 

055F jnz 0398 
0562. 

-TC < CTRL + C> 

A >save 23 b:artworx.prg 
A> 

Mein zweiter Tip bezieht sich 
auf den Leserbrief von G. 
Behrendsen (PCI 11/88). 
Alle im CPC- Handbuch be¬ 
schriebenen Kontrollzeichen 
gelten auch unter CP/M 2.2. 
Deshalb funktioniert auch 
das Setzen von Windows mit 
CHR$ (26) 4-... und die Posi¬ 
tionierung des Cursors mit 
CHR$(26)+ CHR$(x) + 

CHR$(y). 

Bei den Windows werden 
aber die Koordinaten vom 
Betriebssystem anders ge- 
handhabt als vom BASIC- In¬ 
terpreter: Die obere linke 
Ecke ist (0,0) und nicht 
(1,1). Um ein Fenster wieder 
wegzudefinieren, muß also 
CHR$(26)+ CHR$(0) + 

CHR$(79)+chr$(0) + 
chr$(24) ausgegeben wer¬ 
den. Im CPC-664-Handbuch 
ist diesbezüglich auch ein 
Fehler, es muß auf Seite 7-5 
heißen: 0...79 
0...79 
0...24 
0...24 


M. Tosch 
Braunschweig 


ArtWorx und der SG 10 

Mir ging es ähnlich wie Le¬ 
ser P. Heymann aus Hanno¬ 
ver (LBs 12/88). Ich arbeite 
allerdings mit dem Star- 
Drucker SG 10. Nun wurde 
ja in dankenswerter Weise 
ein BASIC- Ladeprogramm 
bei ArtWorx mitgeliefert, in 
welchem sich eine Drucker¬ 
anpassung vornehmen lassen 
sollte — doch weit gefehlt: 
Die entsprechenden POKE- 
Befehle, die im Ladepro¬ 
gramm von mir durchgefiihrt 
wurden, führten nicht zum 
gewünschten Erfolg, da, wie 
sich herausstellte, diese 
durch das Programm 'ART¬ 


WORX. PRG ’ wieder über¬ 
schrieben wurden. Dieses 
geschieht bereits in der 
Zeile 1: 

1 DATA C3,4C,00,1B,41, 
05,00, < Zeilenabstand > 
1B,2A,04,7F ,02,21 ,D0,16, 
11,0352 <Grafikbetr.> 

Das Problem besteht einer¬ 
seits darin, daß sich auf der 
DATA BOX kein Datalader 
befindet, andererseits bei ei¬ 
ner Änderung im Lader die 
Prüfsummen total neu be¬ 
rechnet werden müßten. 

Ich habe mir so beholfen, in¬ 
dem ich das (vielleicht nicht 
ganz ohne Absicht?) im Heft 
11/88 befindliche Programm 
’DOC gestartet habe, dann 
die Diskette mit dem Pro¬ 
gramm ARTWORX nach dem 
Binärfile ’ARTWORX.PRG’ 
durchsucht und die entspre¬ 
chenden Codes anhand des 
Druckerhandbuches geän¬ 
dert habe. Anschließend 
habe ich das Ladeprogramm 
'ARTWORX. BAS’ um die 
Zeilen für die vermeintliche 
Druckeranpassung verkürzt 
(280-490), seitdem läuft das 
Programm zu meiner voll¬ 
sten Zufriedenheit. Die Qua¬ 
lität des Programmes finde 
ich im übrigen ausge¬ 
zeichnet. 


Werner Roos 
Selb 


SG 10 - Die Zweite 

Vor einigen Tagen erhielt ich 
die DATABOX 11/88 mit 
dem DTP-Programm Art¬ 
Worx. Obwohl ich noch nicht 
oft damit arbeiten konnte, ist 
mein erster Eindruck sehr 
positiv. Einziges, aber wich¬ 
tiges Manko ist die Drucker¬ 
anpassung. Denn obwohl 
das Programm wie auch 
mein Drucker (Star SG 10) 
angeblich EPSON- kompati¬ 
bel sein sollen, ist es mir erst 
fiach einigen Fehlversuchen 
und erheblichen Verände¬ 
rungen im Startprogramm 
A R TWORX. BA S gelungen, 
meine 'Kunstwerke ’ aufs Pa¬ 
pier zu bringen. 

Um anderen Star-Drucker- 
Besitzern die Tüftelarbeit zu 
ersparen, habe ich ein klei- 
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nes Programm geschrieben, 
mit dem man ART- 
WORX.BAS so verändern 
kann, daß der Drucker auf 
das Programm anspricht. 
Zum Listing noch folgende 
Anmerkungen: 

1) Das Listing abtippen, da¬ 
bei die vorgegebenen Zeilen¬ 
nummern NICHT verändern 
und keine aus lassen, da 
sonst die Anpassung nicht 
funktioniert. 

2) Das Listing als Datei 
ARTWORX. MRG abspei¬ 
chern. 

3) Nun ARTWORX. BAS in 
den Rechner laden, danach 
mittels MERGE-Befehl den 
Programmteil ARTWORX. 
MRG dazuladen (Achtung, 
464-Besitzer: Merge-Routi- 
ne aus Heft 9/87 nehmen!!). 
Durch diese Verbindung ent¬ 
steht ein neues Startpro¬ 
gramm, welches als AWX- 
SGIO.BAS abgespei chert 
werden sollte. 

4) Vor Inbetriebnahme des 
Druckers diesen auf den 
IBM-Modus umschalten 
(DIP-Schalter 2—2 auf 
‘OFF“ = nach unten 

stellen.) 

5) Vor dem Start von AWX- 
SGIO.BAS den Drucker ein¬ 
schalten, sonst läuft es nicht! 

6) Sobald der Drucker aus¬ 
geschaltet wird, ist die An¬ 
passung natürlich dahin; das 
Programm muß dann wieder 
mit AWX-SG10.BAS neu ge¬ 
startet werden. 

Sollte jemand eine elegante¬ 
re Lösung finden — insbe¬ 
sondere auch für den Star- 
Modus des SG 10 - , so wür¬ 
de mich dies natürlich auch 
interessieren. Mir ging es 
jetzt erst einmal darum, den 
Drucker zur Arbeit zu über¬ 
reden, aber vielleicht können 
meine Überlegungen ja wei¬ 
terhelfen. Hier ist jedenfalls 
das Programm: 

162 ’#- 

- # 

164 ’# Druckeranpassung 
fuer # 

166 ’# ST ARS G- 10# 
168 ’# von Dieter Schupp 
# 

172 ' 

174 MODE 1 
280 'Druckerabfrage 
290 ’ 

300 LOCATE 8,10 


: INPUT“ Drucker 
lBM-ok (J/N) ? “,jn$ 
310 jn$=LOWER$(jn$) 

320 IFjn$ = “n“ THEN 
LOCATE 1,24: END 
330IF jn$ = 7 “ THEN 350 
340 PRINTCHR$(7);:LOCATE 
8, 10: PRINT SPACE$(25): 
GOTO 280 

350 PRINT# 8, CHR$(2 7) 

: ’Druckerinitialisierung 
360 CLS 
370 ’ 

380 5/72 Zoll Zeilen vorschub 
390 ’ 

400 PRINT # 8,CHR$(27) "A "CHRl 
5); 'Voreinstellen von 
5/72 Zoll im IBM-Mode 
410 PRINT # 8,CHR$(27) “2 
: 'Ausfuhren des 
eingestellten Zeilenab 
Standes 
420 ' 

430 'Grafikmodus 369 Pixel 
pro Zeile 
440 ’ 

450 POKE & 9004,2 7 
460 POKE &9005,42 
470 POKE & 9006,4 
480 POKE &9007,127 
490 POKE & 9008,2 


Dieter Schupp 
Nastätten 


Dies waren drei Leserbriefe 
von Artworx- Benutzern, die 
sich bei der Druckeranpas¬ 
sung helfen konnten und de¬ 
nen wir herzlich danken für 
die Bereitstellung ihrer Tips. 

Zum Fehler bei Artworx ist 
zu sagen, daß die entspre¬ 
chenden Stellen tatsächlich 
überschrieben werden, da 
die Druckerroutine jedoch 
bei den voll EPSON- kompa¬ 
tiblen Druckern funktionier¬ 
te (Ausdruck auf DMP 2000, 
NEC P6, etc.), fiel dies nicht 
auf. Wir sind aber bemüht, 
diese 'Falle’ so schnell wie 
möglich zu entschärfen, und 
auch weitere Druckeranpas¬ 
sungen werden sofort an Sie 
weitergegeben. Die DATA- 
Lader in die DATABOX zu 
bringen, hätte den Rahmen 
des Fassungsvermögens ge¬ 
sprengt; hierbei gab es keine 
andere Möglichkeit. 


Red. 


Wer kennt den WELC0- 
DMP1100? 

Bei der Post geht 's nicht so 
schnell, so war ich heute 
endlich froh, Ihre o.a. Sen¬ 
dung zu erhalten. Besonders 
gespannt war ich auf das 
ArtWorx- Programm. Beim 
Arbeiten läßt sich alles pri¬ 
ma abspeichern, leider wird 
auf meinem Drucker, einem 
WELCO-DMP 1100, nichts 
ausgedruckt. Auf einem ori¬ 
ginal AMSTRAD-Drucker 
lief das Programm einwand¬ 
frei. 

Richard Läppert 
Langenselbold 

Daß unsere Post nicht die 
schnellste ist, kann man be¬ 
jahen, allerdings ist das 
Schreiben des Herrn Luppert 
auch schon etwas älter (Heft- 
Vorlaufzeit); diese Bemer¬ 
kung nur deshalb, damit uns 
die Postbediensteten keine 
Schmähbriefe schreiben. 
Leider ist uns der WELCO- 
Drucker so bekannt wie eine 
sechsbeinige Katze, das 
heißt, wir haben keinerlei 
Unterlagen dazu. Deshalb 
geben wir die Frage an Sie. 
liebe WELCO-Besitzer, 
weiter: Bitte melden Sie 
sich, damit Herrn Luppert 

geholfen werden kann. _ . 

Red. 


Hilfe bei BASF- Floppy 

In der Ausgabe 12/88 bat ein 
Leser um Hinweise zum An¬ 
schluß der BASF-6106-Flop- 
py. Ich hatte ebenfalls einige 
Schwierigkeiten, das Lauf¬ 
werk an einem CPC 464 zu 
betreiben, konnte diese je¬ 
doch beheben. 

Zunächst sei erst einmal dar¬ 
aufhingewiesen, daß zu dem 
im Angebot der Firma Con¬ 
rad enthaltenen Laufwerk 
keine anderen Unterlagen zu 
erhalten sind, offensichtlich 
handelt es sich hierbei um 
eine Sonderversion für einen 
speziellen Abnehmer (daher 
die fehlenden Jumper / geän¬ 
derte Platine). 

Aber keine Bange, das Lauf¬ 
werk tut 's trotzdem am gu¬ 
ten , allen CPC! Bei der Fer¬ 
tigung des Flachkabels bzw. 
des Anschlußsteckers sollte 
man sich strikt an die Be- 


-AMSTRAD-Computer- 

-Software + Zubehör- 

AMSTRAD-Computer auf Anfrage 

JOYCE-Zubehör: 


Farbband 8256/8512 

12,90 

Papierführung 

29,50 

3"-Markendisketten 10 St 

59,90 

Farbband 9512 

17,95 

Typenräder 9512 

25,00 

Typenräder SD15 

25,00 

Diskettenbox f. 50 Disk. 

16,95 

3D Chess 

49,90 

GSX-Grafik-Treiber 

49,90 

PC-Zubehör: 


5 1/4"-Disketten 2D 10 Stück 

6,95 

3,5‘-Disketlen MF 2DD Stück 

2,50 

20MB Filecard 

698,00 

Druckerkabel par. 

17,70 

STAR LC10 (deutsch) 

570,00 

STAR LC24/10 (deutsch) 

890,00 

Druckerständer 

29,95 

Farbband LC10 

15,95 

Farbband NEC P 2200 

16.95 

Abdeckhaube Tastatur 1512/1640 

16,95 

Genius Dyna Mouse 

135,00 

128 KB RAM-Erweiterung 

198.00 

2. Laufwerk 3 1/2" 

459.00 

Turbo 959-Joy-Stick 

29,95 

Haftetiketten endlos 100 Stück 

8,95 

DOS-Lernprogramm 

49,70 

TextMaker 

148,00 

Finanzbuchhaltung 

398,00 

Fakturierung 

398,00 

Weitere Preise auf Anfrage! 


Lieferung per Nachnahme oder Voraus- 

kasse (Versandkostenpauschale 11,40 

pro Paket) 


Kosmalla & Partner 

Datenverarbeitung GmbH 

Bliesstr. 5, 6700 Ludwigshafen 

Tel.: 0621-51 9749 



Ihr Partner (ür Hard- und Software 


Amitr»a 

Amsuad PC 1640 MV'SD mit 20-M6 F IleCart) 

2 500,- 

Amsnad LO 3500 inel DruckerkaBel und 

6 Farbbänder 

900,- 

Weilers Amstrad-Produkte aul Anfrage» 


Schneidur 

Schronler Euro-PC m.| Sunnvhrte Diei Mouse 

unö Mouse-Pad 

1 29S 

Schneidet Tower AT 201 mit 20 MB Filecard 
Wertere Schneider-Produkte aul Anträge» 

2998,- 

Brolher 


Brolher M1724 l 

1398.- 

Brolher M-1209 

Weitere Broiher-Produkte auf Anfrage'! 

599.- 

Epson 

Epson LQ-500 

848,- 

Epson LQ-1050 

Wodcro Epson-Produkle aul Anfrage" 

1848,- 

Tandon 

TANDON-Ccmputer aut Anfrage"' 

Bondwtll 

Bondwoil 8 Turbo Laptop 8Mh.- t MB RAM 
irtcl Betriebssystem 

2 998,- 

Weite»© Bondwell Produkte auf Anfrage!! 


Peacock 

Peacock-Produkte aul Ant-ageMl 

Seikosha 

Seikosha SL-80 IP 

775.- 

Serkosha MR-13C0 AI mcl Sheol Fed 
Ausstellungsstück 

Wertere Serkosha-Produkte auf Anträge 1 '' 

1 250.- 

Zutishdr 

U‘-FJatscreen-Monucr sto oder ambor 

268- 

MF Tastatur 102 Tasten PC.ÄT 

125- 

20-MB-Ftiecard 

598- 

3.5’ -Laufwerk 720KB mit Embaurahmen 

248.- 

Serie! I/Parallel-Schnittstelle 

99,- 

Schul- und Mengenrabaltaul Anträge Nachnah¬ 
meversand unfrei Bei Vorauskasse 2% Skonto. 
L-eferung frei Angebot freibleibend Zwischen- 

verkauf Vorbehalten 



W GmbH 


Postfach 1025 22, 3500 Kassel 


Telefon 05 61 /8228 46 
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Schreibung aus dem CPC- 
Sonderheft 2 halten. Die 
Stromversorgung sollte gut 
stabilisiert sein und den Be¬ 
lastungen laut Beschreibung 
(die übrigens korrekt sind) 
standhalten. Im übrigen hat 
es keinen Zweck, an den 
Drahtbrücken zu experimen¬ 
tieren. Lediglich die Unter¬ 
brechungen und Verbindun¬ 
gen laut Skizze d) im Sonder¬ 
heft 2/86, Seite 77, müssen 
hergestellt werden. 

Achtung!! Zusätzlich muß 
aber unbedingt der Leiter¬ 
bahnanschluß -2- (Head 
Load) auf der Floppy-Platine 
auf Masse gelegt werden, da 
der CPC-Controller dieses 
Signal nicht zur Verfügung 
stellt! 

Dies hat zwar ein infernali¬ 
sches Geklapper des Head- 
Load-Magneten bei jedem 
Floppy-Zugriff zur Folge 
(auch beim Ansprechen der 
Erst-Floppy), läßt sich je¬ 
doch wohl nicht vermeiden. 
Ansonsten tauchten absolut 
keine Probleme auf! Die neu¬ 
en 5 I / 4“-Disketten ließen 
sich mit den üblichen Utili¬ 
ties und Kopierprogrammen 
einwandfrei (bis Spur 42) 
formatieren, besch reiben 
und lesen. 

Vorsicht ist nur bei einer Sa¬ 
che geboten: Der Zugriff auf 
das Laufwerk ist optisch 
nicht anzeigbar. 

Heinz- Werner Moog 
Mühlheim (Ruhr) 


ARTWORX (11/87) und 
Seikosha SP 1000 

Nachdem ich die Anmerkung 
zu “ ARTWORX “ gelesen hat¬ 
te, stürzte ich mich mit Be¬ 
geisterung auf die Tasten 
meines CPC, um das Pro¬ 
gramm abzutippen. Die 
Mühe hat sich wirklich ge¬ 
lohnt. 

Nun habe ich als Drucker ei¬ 
nen Seikosha SP 1000, der 
schon so manchen User zur 
Verzweiflung brachte. Ich 
staunte nicht schlecht, als, 
trotz der vom eigentlichen 
Programm vorgesehenen 
Anpassung, fehlerhaft aus¬ 
gedruckt wurde. Ein Blick 
ins Handbuch machte mir 
klar, daß die Einstellung des 
Zeilenvorschubs gar nicht 


funktionieren konnte, da die¬ 
ser beim Umstellen auf Gra¬ 
fik gleichzeitig auf 7/72 Zoll 
eingestellt wird. Also mußte 
ich das Programm analysie¬ 
ren, um die Druckroutine 
selbst anzupassen. Nachdem 
ich diese Überraschung 
schnell gefunden hatte, 
machte mir die Anpassung 
keine Probleme. Kopfzerbre¬ 
chen bereitete mir nur die 
Tatsache, daß immer noch 
nicht 640 Punkte wie vorge¬ 
sehen, sondern nur 320 
Punkte ausgedruckt wurden, 
obwohl alles korrekt ange¬ 
paßt war. Da stieß ich auf ei¬ 
nen fatalen Fehler im Pro¬ 
gramm. Der Autor hat sich 
nämlich dadurch selbst aus¬ 
getrickst, daß er die Daten, 
die in die Adressen & 9000 
bis & 9008 “gepokt“ werden 
(später &43-&4B), durch 
das Nachladen des Haupt¬ 
programms wieder über¬ 
schreibt. Das heißt: Drucker¬ 
anpassungen sollten in die 
erste Zeile des letzten Dcita- 
Laders geschrieben werden 
(Bytes 4- 7: Zeilen Vorschub, 
Bytes 8-J2:Graßkmodus 639 
Punkte). 

Die Anpassung für den Sei¬ 
kosha sieht folgendermaßen 
aus: 

1 DATA C3,4C,00,lB,4l,05, 
00,1B,2A,04,00,05,21,DO,16, 
11,2D6 [3750] 

49 DATA CD,7B,10,B7,C2,3E, 
04,AF,32,9D,04,18,1A,3E,1B, 
CD, 5ED [2150] 

50 DATA 4D,04,3E,4A,CD,4D, 
04,3E,0F,C3,4D,04,00,00,00, 
00,358 [3038] 

53 DATA BD,3A,49,00,CD,23, 
BD,3A,4A,D0,CD,23,BD,3A,4B, 
00,5B3 [2019] 

54 DATA CD,2B,BD,06,50,05, 
£5,01,00,00,ED,43,95,04,ED, 
43,6AF [2465] 

61 DATA 7E,06,CD,4D,04,00, 
00,00,00,00,DD,7E,07,CD,4D, 
04, 422 [3525] 

63 DATA 95,03,CD,4D,03,00, 
00,00,00,00,00,00,31,01,90, 
01,328 [2734] 

Ich hoffe, daß hiermit eini¬ 
gen Druckerproblemen vor¬ 
gebeugt wird. 

Frank Lauxtermann 
Osnabrück 

Wir sind sicher, damit vielen 
Lesern geholfen zu haben, 
und bedanken uns herzlichst 
für diesen Tip. 

Red. 


Tips in BASIC 

Ich habe diverse Tips gesam¬ 
melt, mit deren Hilfe die Le¬ 
ser/innen Ihres Magazins 
BASIC evtl, effektiver an¬ 
wenden können. 

1. Was viele nicht wissen: Es 
existiert eine standardmäßig 
installierte RSX namens 

BASIC. Sie bewirkt eine 
vollständige Initialisierung 
der Bildschinn- und Tasta¬ 
turverwaltung. Ferner löscht 
sie sämtliche Variablen, Da¬ 
ten etc. (vgl. CLEAR.NEW) 
und letzt endlich auch das 
Programm. Der Bildschirm 
meldet sich mit der Ein¬ 
schaltmeldung. 

2. Manchmal kann es wichtig 
sein, herauszufinden, wie 
viele Stellen eine Zahl vor 
dem Komma aufweist. Ver¬ 
fahren Sie nach der Formel: 
x = INT 

(Log / OfABS(zahl)) + 1): 
PRINT x 

3. &AC13 ist die BAS IC- 
Adresse (CPC 464) für LIST. 
Schreiben Sieden Wert &C7 
in diese Adresse, so bewirkt 
dies ein Reset bei Anwen¬ 
dung von LIST oder EDIT. 
Probieren Sie die Werte von 
190 bis 199 aus. 

Das Normalbyte ist & C9. 

4. Tasten umdefinieren kann 
man mit dem KEY DEF-Be- 
fehl. Aber auch die direkten 
Speicherzellen anzuspre¬ 
chen, ist möglich. Es gilt: 

80 x Ebene (Handbuch) + 
Tastennummer + 45900. 

Die ESC-Taste sperren lautet 
Z.B. : 80x0 +66 + 45900 = 
45966. 

Demzufolge heißt die Anwei¬ 
sung: POKE 45966,0 für 
Normalebene. SHIFT- 
Ebene = l und Control- 
Ebene =2. Beispiel: POKE 
46046,0 

5. Sollen aus einem Pro¬ 
gramm überflüssige Spaces 
entfernt werden, so langt es, 
wenn Sie in Adresse &AC00 
das Byte 1 schreiben. Flag 0 
stellt den Komprimiermodus 
aus. Auswirkungen hat die¬ 
ser Poke erst dann, wenn 
eine Zeile editiert oder ge¬ 
schrieben wurde. 

6. In Adresse &AF.45 (CPC 
464) bzw. &AE2C (CPC 
664/6128) steht das Flag für 
Listschutz. POKE &AE45.1 
bzw. POKE &AE2C.I 
schützt ein Programm im 


Speicher. Die 0 hat die ent¬ 
gegengesetzte Wirkung 

7. BASIC-Programme wer¬ 
den ab Adresse 368 abge¬ 
legt. Mit folgendem “Prog- 
gv“ können Sie sie im Spei¬ 
cher ansehen: 

100 FOR p=368 to adr: 

REM adr=adresse 
110 PRINT PEEK (p) 

120 NEXT p 
130 END 

8. Mit PRINT PEEK 
(&AC24) können Sie auf dem 
CPC 464 bzw. CPC 664 
PRINT PEEK (&AC09) die 
Druckweite WIDTH ausle- 
sen. Normal ist der Wert 
132. 

9. POKE &B8D1,6:POKE 
B8D2, 83 (CPC 464) bzw. 
POKE &B1 E9.6.POKE 
&BJEA.83 (CPC 664) stel¬ 
len SPEED WRITE 0 ein 
(Kassettensclireibgesi hwin- 
digkeit). 

SPEED WRITE I entspricht 
den Parametern 12 und 41 in 
beiden Adressen. 

10. Ein Reset von Hand 
(CTRL plus SHIFTplus ESC) 
macht ein RET in Adresse 
KM TEST BREAK 
&BDEE,&C9. 

11. Bei Tastaturabfragen mit 
INKEY-Funktion läßt sich 
für die Entscheidung, bei 
ENTER oder F/RE in den 
nächsten Programmteil zu 
springen, folgende Zeile pro¬ 
grammieren: 

100 IF NOT INKEY(6) TUEN 200 
110 IF NOT INKEY (76) THEK 200 
ELSE 100 
200 MODE 2: END 

12. Mit CALL &BD37 
(JUMP RESTORE) läßt sich 
die ursprüngliche Speicher¬ 
aufteilung erneut lierstellen. 

13. READ ERROR a bedeu¬ 
tet, daß ein aufgezeichnetes 
Bit zu lang war. 

READ ERROR b bedeutet 
ja Ische Pa ritätsprüfitng. 
READ ERROR c bedeutet 
schließlich, daß ein Block 
mehr als 2048 Byte aufwies. 

14. Hex werte über &8000 
werden als negativ interpre¬ 
tiert. Addieren Sie 65536. 
um die korrekte Zahl zu er¬ 
halten. 

15. CALL &BB7E sperrt den 
Cursor bei Inputs. CALL 
&BB7B hebt die Sperre auf 
(nicht im Direktmodus!). 
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Beispiel: 

100 CALL &BB7E:LINE INPUT k$ 
110 PRINT TAB (l0);k$ 

120 CALL &BB7B: END 
(Vgl. Sie &5B81/&BB84). 

16. Das Zeichen \ (Back¬ 
slash) gibt Ergebnisse ohne 
Rest aus, das heißt, PRINT 
10\3=3 entspricht PRINT 
INT (10/3)=3. 

Klaus Becker 
München 

Vielen Dank für die Tips. 
Einigen Lesern dürften die 
Tricks bekannt sein und an¬ 
deren nicht. Sollte der eine 
oder andere Poke nicht funk¬ 
tionieren, dann kann es sich 
um eine andere Betriebssy¬ 
stem-Routine handeln (ver¬ 
schiedene Rechner). 

Red. 


Fragen zum CPC 6128 

Als erstes möchte ich Ihnen 
zu Ihrer tollen Zeitschrift 
gratulieren. Aber nun habe 
ich ein paar Fragen: 

1. Ich möchte, daß ich bei 
meinem CPC 6128 mehr 
RAM-Speicher (gleichzeitig) 
nutzen kann. Kann ich da ir¬ 
gendeinen anderen Prozes¬ 
sor einbauen, der mir dem 
Z80 kompatibel ist, aber 
mehr Speicher verwalten 
kann ? 

2. Kann ich den AMSDOS- 
Controller gegen einen 
VDOS-Controller austau- 
schen, damit ich meine 
3-ZolI-Disketten mit 80 Spu¬ 
renformatieren kann ? 

3. Ich suche schon lange ei¬ 
nen Farbmonitor oder Farb¬ 
fernseher, den ich an meinen 
CPC 6128 anschließen kann. 
Ich vermute, daß das Bild 
besser erscheint, wenn ich 
einen Fernseher direkt mit 
einem passenden Kabel an 
meinen CPC anschließe, 
ohne einen Modulator da¬ 
zwischenzuschalten. Die 
Stromzufuhr kann ich ja dem 
G rün moni to r et itn eh men. 
Stimmt diese Vermutung ? 

4. Gibt es zum CPC 6128 ein 
Programm, das meinen 
Computer in einen AMIGA 
verwandelt? Vielleicht mit 
einer Speichererweiterung ? 

Daniel Hofer 
Hondrich (Schweiz) 


Zu 1.: Nein, weil der 
Z80-Prozessor nur 65536 
Speicherzellen verwalten 
kann. Um mehr Speicher¬ 
platz verwalten zu können, 
brauchen Sie einen anderen 
Prozessor, z.B. einen 68000. 
Zu 2.: Austauschen können 
Sie den AMSDOS-Control- 
ler schon, aber Sie können 
trotzdem keine 3-Zoll-Dis- 
ketten auf 80 Spuren forma¬ 
tieren. Der Grund liegt in der 
Beschaffenheit (Datendichte 
ist begrenzt) der Diskette. 
Mit einem 5 1/4-Zoll-Lauf¬ 
werk ist dies aber kein Pro¬ 
blem. 

Zu 3.: Grundsätzlich kann 
man sagen, daß eine Wieder¬ 
gabe auf dem Monitor we¬ 
sentlich deutlicher ist als 
eine Ausgabe auf dem Fern¬ 
seher. Das liegt daran, daß 
die Zeilenabtastung wesent¬ 
lich höher liegt als beim nor¬ 
malen Fernseher. Ein guter 
Fernseher ist wahrscheinlich 
in der Lage, mit einem Scart- 
Stecker ein flimmerfreies 
Bild zu schaffen. Mit einem 
hohen Hardwareaufwand 
wäre das vielleicht sogar 
möglich. 

Zu 4.: Es gibt weder ein Pro¬ 
gramm noch einen Hardwa¬ 
rezusatz, der es möglich 
macht, einen CPC in einen 
AMIGA zu “verwandeln“. 
Dazu sind die Hardwareei¬ 
genschaften und viele andere 
Dinge zu verschieden. 

Red. 


Prowort 

In verschiedenen Berichten 
über das Textverarbeitungs¬ 
programm Prowort wird/ 
wurde bemängelt, daß der 
Hintergrunddruck ni ch t 

funktioniert. Aber es funktio¬ 
niert doch. Wozu kann man 
denn gleichzeitig zwei Doku¬ 
mente bearbeiten? 

Man drucke also einen Text 
aus, und nach der Rückkehr 
des Promptzeichens schaltet 
man mit "SA + RETURN" in 
das zweite Dokument um. So 
kann man nun während des 
Drückens den Text weiterbe¬ 
arbeiten. 

Michael Hildebrand 
Lohmar 


PR8-SOFT 


Telefon: 0931/464414 

Das Programmpaket mit dem herausragenden Testergebnis. 
In fünf der möglichen Bewertungskriterien fünf mal die Note 1 
(Heft 1/88 PC Schneider International). 

DISCOLOGY ist voll menügesteuert. 50 Bildschirmseiten Hilfs¬ 
text und Handbuch komplett in Deutsch. 

DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

DISCOLOGY 

CPC DISC TOOLS 

NEU! 

jetzt in r i 
Version D • I 


Für alle CPC's 
3"-Diskette 
nur 

DM 99.- 

ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AMSTRAD CPC 

M I C R 0 D E S I 6 N 

Für CPC 6128 (oder CPC 464/664 

mit DK-Tronics Speichererweiterung) DM 99.- 

MICR0DESIGN mit AMX-kompatibler Maus DM 248.- 

CHERRY PAINT Komfortables Malprogramm, Menüsteue¬ 
rung (Joystick, Tastatur, Maus). Ausdruck in versch. Größen. 

Für alle CPC's 3"-Diskette DM 49.90 

PRINT MASTER Druckprogramm mit 20 versch. Schriften, 
incl. Schriftendesigner. Für alle CPC's 3"-Diskette DM 59.90 

MAXELL CF2 3"-Disketten 10 Stück nur DM 69. - 

ab 50 St.: DM 57.-/10 St., ab 100 St.: DM 55.-/10 St. 

VIDI-CPC Videodigitiser für CPC 464/664 DM348- 

für CPC 6128 DM368.- 

Weitere Angebote und Spiele in unserem Katalog! 

Tel. Bestellung (24 Stunden): 0931/464414, FAX: 0931/464413 
PR8-SOFT Klaus-M. Pracht * Postfach S00 * D-8702 Margetshöchheim 



Lieferung per Nachnahme (Versandkosten DM 5.- + NN-Gebühr) oder gegen Scheck 
(+Versandk. DM 5.-). Auslandslieferungen gegen Scheck (+ Versandkosten DM10.-) 
- X 

D Schicken Sie mir Ihren neuen Katalog (DM 3.- in Briefmarken liegen bei) 
BESTELLUNG (incl. kostenlosem Katalog) D per Nachnahme 
o, CI mit beiliegendem Scheck 

~ (Compuferf/p:_ ) 


Name _ Tel. 

Straße - 

PLZ, Ort _ 

Datum, Unterschrift - 
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AMS-Lme -- 

der direkte Draht zu AMSTRAD 

Wie jeden Monat präsentieren wir Ihnen die neuesten Informationen von 
AMSTRAD. 


Externe Laufwerke für die PC 
2x86-Gcräte 

Wie inzwischen wahrscheinlich hinläng¬ 
lich bekannt sein dürfte, sind die neuen 
PCs serienmäßig mit 3,5-Zoll-Laufwer- 
ken ausgerüstet. Diese Disketten sind 
handlicher und robuster, der Trend geht 
ganz klar in diese Richtung - aber... An 
dieser Stelle werden immer wieder fol¬ 
gende Fragen gestellt: “Was mache ich 
mit meinen alten 5,25-Zol 1-Disketten?“ 
oder “Wie komme ich an Software, die 
nur auf 5.25-Zoll-Disketten erhältlich 
ist?“ 

Dies ist bei den neuen AMSTRADs kein 
Problem. An allen Typen ist eine Buchse 
zum Anschluß eines externen Laufwerks 
vorhanden. Hier lassen sich prinzipiell 
beliebige Laufwerke anschlicßen. Wer 
“Bastelarbeit“ scheut, kann über den 
AMSTRAD-Fachhandel anschlußfertige 
Laufwerke für 5,25-Zoll-Diskctten (und 
auch für 3,5-Zoll-Disketten) erwerben. 

LQ 3500 unter LocoScript 2 
In der letzten AMS-Line hatten wir auf 
den neuen Druckertreiber für den LQ 
3500 hingewiesen (“Neue Produkte für 
LocoScript“). Was ist zu tun, wenn ich 
diesen Treiber installieren möchte? 

1. Schritt: Kopieren Sie den Treiber 
(LQ3500.PRI oder LQ3500X.PRI) auf 
Ihre Startdiskette in die Gruppe 0, und 
starten Sie das System neu (SHIFT + 
EXTRA 4-EX IT). Vorsicht! LocoScript 
kann maximal vier Druckertreiber 
gleichzeitig verwalten. Sollten Sie be¬ 
reits vier auf der Startdiskette haben, so 
müssen Sie entweder bereits vorhandene 
Treiber von der Startdisketle löschen (die 
Treiber sind auch in der EINSTELL. 
STD abgelegt, daher am besten ebenfalls 
löschen) oder eine neue Startdiskette mit 
den entsprechenden Treibern erstellen. 

2. Schritt: Der weitere Ablauf hängt da¬ 
von ab, ob Sic den LQ3500 als Standard¬ 
drucker oder nur für einzelne Ausdrucke 
benutzen wollen: 

Soll der LQ als Standarddrucker ange¬ 
sprochen werden, so müssen Sie zu¬ 
nächst in der Diskverwaltung den Punkt 
f6=Einstellung aufrufen und in diesem 
Menü den Punkt Standard-Drucker auf¬ 


rufen. Mit ENTER erhalten Sie eine Li¬ 
ste der vorhandenen Druckertreiber, in 
der Sie den Treiber für den LQ mit Hilfe 
der [ + ]-Taste “abhaken“ müssen. Nach¬ 
dem Sie das Menü mit EXIT und ENTER 
verlassen haben, speichern Sie die Datei 
EINSTELL.STD auf die Startdiskelte ab 
(LocoScript erinnert Sie daran!). Von 
jetzt an wird bei jedem Neustart automa¬ 
tisch der LQ angesprochen; den Typen¬ 
raddrucker können Sie sogar völlig ent¬ 
fernen, aber bitte nicht während das Ge¬ 
rät angeschaltet ist, da sonst eine Repara¬ 
tur fällig wird!!! 

Wenn Sie den LQ-Drucker nur für ein¬ 
zelne Ausdrucke verwenden wollen, ge¬ 
nügt es, im Druckermenü, welches Sie 
nach Betätigen der PTR-Taste erhalten, 
die Option f5 = Drucker anzuwählen und 
dort in der oben beschriebenen Weise 
den LQ3500 zu aktivieren. 

Bei Texten, die nicht mit der Standard¬ 
einstellung LQ3500 geschrieben wurden, 
erscheint beim Aufruf von D = Drucken 
im zweiten Fenster der Hinweis “Text 
und Drucker sind nicht abgestimmt ...“. 
Dieser Hinweis ist nur dann relevant, 
wenn Sie im entsprechenden Text beson¬ 
dere “Fähigkeiten“ des Druckers (Kur¬ 
sivschrift, Sonderzeichen o. ä.) benut¬ 
zen, die mit dem jetzt angesprochenen 
Drucker nicht möglich sind. Ansonsten 
können Sie an dieser Stelle ruhigen Ge¬ 
wissens die Option “Angeschlossenen 
Drucker benutzen“ bestätigen? 

GEM und Drucker 

Da hat man nun einen 24-Nadel- 
Drucker... — aber die Grafiken sehen 
trotzdem aus wie bei einem 9-Nadei- 
Drucker. Das Problem ist altbekannt: 
Der Druckertreiber ist mal wieder 
schuld. Abhilfe schaffen zusätzliche 
Druckertreiber, die ins Verzeichnis 
GEMSYS kopiert und in die Datei AS- 
SIGN.SYS eingebunden werden müssen. 
Solche Treiber - und natürlich auch sol¬ 
che für etwas ausgefallenere Modelle - 
erhalten Sie als “Device Driver Discs“ 
direkt von der Firma Digital Research 
Deutschland, Hansastr. 15, 8000 Mün¬ 
chen 21. 


Nochmal Zusatzliteratur zu Loco¬ 
Script 2 

Eine hervorragende Ergänzung zum 
Handbuch ist die “LocoScript 2-Fibel“ 
von W. Ehlers und U. Liebelt. 

Diese Kurzanleitung hat einen Umfang 
von 67 Seiten und beschreibt in über¬ 
sichtlicher Weise (nach Menüs geordnet) 
die Funktionen der Textverarbeitung. 
Durch einen guten Index und reichlich 
Querverweise eignet sich dieses Buch be¬ 
sonders gut zum Nachschlagen, wenn 
man wieder einmal an dem Punkt “Wie 
war das noch gleich...?“ angelangt ist. 

Die “LocoScript 2-Fibel“ erhalten Sie 
über: 

Herrn Walter Ehlers 
Rheingoldweg 5 
2000 Hamburg 56 
Tel. 040-813721 

Der Preis beträgt DM 39.- zuzüglich 
Porto und Nachnahmegebühr. 

Schulungskurse 1989 
Wie bereits im letzten Jahr bietet AM¬ 
STRAD auch in diesem Jahr wieder 
Schulungen für die Bereiche Betriebssy¬ 
steme und Textverarbeitung an. Nähere 
Angaben und Termine erfahren Sie wie 
gewohnt bei Ihrem AMSTRAD-Fach- 
händler. 

Service für AMSTRAD-Geräte 
Wie bereits im Heft 11/88 in der Rubrik 
AKTUELL berichtet wurde, können Sie 
sich in Reparaturfällen - sofern der Ser¬ 
vice nicht direkt von Ihrem Händler 
durchgeführt werden kann - an die Fir¬ 
ma Anders Computer Service wenden. 
Diese Firma übernimmt auch den Service 
der Hifi- und Fernsehgeräte. Das Service 
Center Mitte — vorher in Neu Isenburg 
- ist umgezogen. Neue Anschrift: 

ANDERS COMPUTER SERVICE 
GmbH & Co. KG 
Klöcknerstr. 3 
6054 Rodgau 3 
Tel.: 06106-74011. 


Ihre 
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ProSoft-Preise liegen richtig! 

S 0261/4047-1 -m 8 62 476 PSOFT'Telefax 0261/4047-252 

Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 

Plantron Plantron Plantron CMP CMP CMP CMP CMP EGA/VGA Grafik-Adapter AMS2/89 


PT-AT Tower-Computersystem 

8/10 MHz, 640 KB RAM, Monochrom - Grafikkart#, Multi 

I/O-Kart«, Floppy-Dlsk-Contr., 1 Dlsklaufw. 

1.2 MB, dt Tastatur u. dt. Bedlenungsanl. 2398.- 

PT-AT/64 Tower-Computersystem _ 
wia PT-AT, jedoch zus. mit 64 MB Festplatte 3458.“ 

PT-286 AT Tower-Computersystem 

wie PT-AT/64, jedoch zus. mit 2. Disklaufwerk ___ _ 
(3,5’, 720 KB) und Super-EGA-Karte 3778.- 


PT-286 AT Tower-Computersystem 

+ 


Incl. Hitachi Multi 560 

und MS-DOS 3.3 und GW-BasIc 


4998.- 


PT-386 HT/2 Computersystem 

16 MHz, 1 MB RAM, Monochrom - Grafikkarte, Multi I/O- 

Karte, 1 Disklaufw. 1.2 MB, Echtzelluhr, 
dt. Tastatur u. dt. Bedienungsanleitung 

5158.- 

PT-386 HT Computersystem 

wie PT-386 HT/2 jedoch mH Super-EGA- 
Karte 800 x 600 und Festplatte 64 MB 

6878.- 

Aufpreis für PT-386 mit 20 MHz Version 

1388.- 

MS-DOS 3.30 dt. + GW-BasIc 

198.- 


CMP-AT 

80286 mit 6/12 MHz (0 Waltstate), 16 MHz (Landmartd, 
Hauptspeicher 640 KB, erweiterbar auf 4 MB on Board, 
Echtzeltuhr, parallele und sertello Schnittstelle, 1 Dlsk- 
laufwerk 1.2 MB, Hercules komp. .... 

Grafikkarte, und MF-Tastatur 2398.- 

CMP-AT/20 2898.- CMP-AT/40 3198.- 

CMP Baby-AT 

wie CMP-AT, jedoch mit Baby-AT Gehäuse 2298.- 

CMP Baby-AT/20 2798.- CMP Baby-AT/40 3098.- 


CMP-AT/40 (Baby-AT) 

+ 

Incl. MaxLoglc Autoswitch EGA-Karte 
und Hitachi Multi 560 Autoscan 
Incl. MS-DOS 3.3 und GW-BasIc 


ATI EGA Wonder Enhanced mit VGA 
ATI VIP - Karte (VGA) 

Video Seven VEGA VGA 
ORCHID Pro Designer VGA + 


4698.- 


MaxLogiC Autoswitch EGA-Karte 

378.- 

MaxLogicvGA 

548.- 

Genoa Super Hires plus Level 7 

398.- 

Genoa Super VGA Hires 

698.- 

Video Seven VGA-16 OEM (16 Bit Karte) 

798.- 

NEU 1 Tecmar VGA/AD (16 Bit Karte) 

1198.- 


Monitore und Mäuse 




Commodore 


Commodore 


PC-10III 

8088-2 mit 4,77/7,18 und 9,54 MHz Taktfrequenz, 640KB 
Hauptspeicher, parallele und serielle Schnittstelle, Maus- 
Interface, Monochrom Color Video-Adapter, Echtzeituhr, 


CMP Tower Maxi A _ A . 

wie CMP-AT, jedoch m. Towor-Maxl Gehäuse 2598.- 
Towor-Maxl/20 3098.- Tower-Max1/40 3398.- 

CMP 386 AT 

80388 mit 20 MHz Takt, 1 MB Hauptspeicher, Sockel für 
80387 Co-Prozessor, Award BIOS, 1 Disklaufwerk 1.2 MB 
(5 1/4*1, Echtzeltuhr, 2 x parallele und 2 x serielle Schnitt¬ 
stelle, Hercules komp. Grafikkarte, ___ _ 

MF-Tastatur, Incl. MS-DOS 3.3 5598.- 

CMP 386 AT/20 6098.- CMP386AT/40 6398.- 

CMP Flatscreen 14* s/w oder amber nur 218.- 

Fllecard 20 MB 598.- Filecard 30 MB 698.- 


NEC Multlsync II 
Hitachi Multi 560 
Mitsubishi EUM-1481 A 
Mitsubishi FA 3015 ATKE 
Citizen CCM 104 
NEC Multlsync GS 


14* 

14* 

14 * 

14* 

14* 

(Graust.-Mon.) 


EIZO 9070 S 


18* Monitor, (1280 x 800 Bildpunkte) 

1998.-J 

Flat Screen Monitor s/w oder amber 

218.- 

Loglmouse C7 Plus package deutsch 

NEU 1 Logitech Hires Mouse 

168.- 

198.- 

GM 6000 Hires Mouse 

128.- 

MS-kompatlble Mouse seriell 

78.- 


Software Software Software 


2 Diskettenlaufwerke a' 360 KB, MF-Tasta¬ 
tur, Monitor, MS-DOS 3.2 und GW-BasIc 

1698.- 

PC-10 III 1/20 

wie PC-10 III, jedoch nur 1 Disklaufwerk und 
20 MB Festplatte 

2168.- 

PC-10 III 2/20 

wie PC-10 III, jedoch mit 20 MB Festplatte 

2298.- 

PC-10 III 1/30 

wie PC-10 III, Jedoch nur 1 Disklaufwerk und 
30 MB Festplatte 

2198.- 

PC-10 III 2/30 

wie PC-10 III, jedoch mH 30 MB Festplatte 

2348.- 

Amiga 2000 mit Monitor 1084 S 

2498.- 

Amiga 500 

998.- 


Seagate Festplatten 

Festplattenkits (Incl. XT-Controller u. Kabelsatz) 
ST-225 20 MB 51/4* 558.' 

ST-238R 30 MB 5 1/4* 578.' 

ST-138R 30 MB 3,5- 628.' 


ST-225 

ST-251/1 

ST-4096 


448.- ST-238R (30 MB 478.- 

798.- ST-277R (65 MB 798.- 

1198.- ST-4144R (122 MB 1398.- 


DBase IV dt. 
Framework III 
Ventura Publlsher 
Open Access II 2.1 
Wordstar Extra 4.0 
Wordstar 5.0 Prof. 
F&A 

Turbo Pascal 5.0 
Turbo C 2.0 
MS-Works 
Layout 

PC Tools de Luxe dt. 


AutoCad Adv. 3 9.0 
Clipper Compiler 
Tex-Ass-WIndows + 
Pagemaker 3.0 
Word Perfect 5.0 
Wordstar 2000 Rel.3 
Word 4.0 
Sldekick plus 
Turbo Pasc. Toolb. i 
MS Quick-Basic 
GEM Graph. 

Adv. Norton Utilities 


ST-251-0 40 MB, 40 ms, halbe Bauhöhe 698.- 


Bitte fordern Sie unsere kompl. Software-Preisliste an I 


ST-125-0 
ST-138R-0 


478.- ST-125-1 (20 MB) 
518.- ST-157R-0 (50 MB) 


Citizen 


Citizen 


Atari 1040 STF Tastatur, 1024KB RAM, 192KB ROM, 
Integrierte Floppy 720 KB, Monochrom- . 

Monitor SM 124, Maus und Basic 1498.- 


Mitsubishi MR 535 40 mb, 28 ms 
Priam V-185 

110 MB Festplatte, 18 ms, RLL-fählg 


LSP-120D Parallel o. Commodore Interf. 


Amstrad Amstrad Amstrad Streamer 


Epson 


LX-800 


Epson 

1368.- LQ-1050 
798.- LQ-2550 


Epson 


nur 488.- 


PC 1640D Mono 1678.- PC 1640 D EGA 2498.- 

PC 1640 HD Mono 2338.- PC 1640 HD EGA 3168.- 


PC 1640 HD Mono mit 20 MB (Seagate) 2148.- 
PC 1640 HD Mono mit 30 MB (Seagate) 2198.- 
PC 1840 HD Mono mit 40 MB (Seagate) 2398.- 


Wangtek FAD 3500 52 MB Streamer 
Alloy APT-40 40 MB Streamer 


i i Einzelblattelnzüge für 
848.- LQ-500 178.- LQ-850 

628.- 1 1 


LX-800 178.- 

318.- LQ-1050 398.- 


PC 1640 HD EGA mit 20 MB (Seagate) 2998.- 

PC 1640 HD EGA mit 30 MB (Seagate) 3048. - 

PC 1640 HD EGA mH 40 MB (Seagate) 3248.- 


PC 1512 S Mono 1198.- PC 1512 D Mono 1548 
PC 1512 S Farbe 1568.- PC 1512 D Farbe 1898 

Portable PC 

PPC 512 S 1418.- PPC512D 1668. 


8087 (5 MHz) 198.- 8087 (8 MHz) 

8087 (10 MHz) 398.- 80287 (ö MHz) 

80287 (8 MHz) 448.- 80287 (10 MHz) 

80387-16 878.- 80387-20 

80387-25 

Fast-Sockel 60287 - 8, 10 oder 12 MHz 


Diskettenlaufwerke 


NEC P2200 

24-Nadel-Drucker 

nur 758.- 

NEC P0 plus 

24-Nadel-Drucker 

1448.- 

NEC P7 plus 

136 Zelchen/Zelle 

1738.- 

Star 

Star - Star - 

Star 

LC-10 centr. 

548.- LC-10 centr. color 

648.- 

LC-10 com. 

568.- LC-10 com. color 

648.- 


360 KB (5 1/4*) 
720 KB (3,5*) 


148.- 1,2 MB (5 1/4*) 
198.- 1,44 MB (3,5*) 


LC 24-10 TOP-PRI 


Elnzelblatteinzug für LC-10 
Einzelblattelnzug für LC 24-10 
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Gutenbergs Erben 

Drucker für den CPC - Informationen zur richtigen Wahl 

Zu einem Computer gehört ein Drucker, da beißt keine Maus den Faden 
ab. Mittlerweile ist der Markt durch die Vielzahl der verschiedenen Typen 
ziemlich unübersichtlich geworden, und zudem haben die Computer der 
CPC-Familie so ihr Eigenarten. Bevor Sie sich also ins Getümmel stürzen 
und eventuell eine Entscheidung treffen, die Sie später bereuen, lassen Sie 
sich durch uns erst ein wenig schlauer machen. 


Sie erfahren Wissenswertes über Un¬ 
terschiede der Schnittstellen und Be¬ 
sonderheiten der CPCs. Ferner infor¬ 
mieren wir Sie über Drucker¬ 
arten, Qualitätsunterschiede zwischen 
9- und 24-Nadel-Druckern und erklä¬ 
ren Ihnen den Begriff Grafikfähigkeit. 
Ein Überblick über aktuelle Drucker 
sowie deren Leistungen und Preise er¬ 
halten Sie dann abschließend in unserer 
Marktübersicht. 

Parallel oder seriell, das ist 

hier die Frage 

Der Unterschied zwischen den beiden 
Schnittstellenarten ist recht einfach zu 
erklären. Während bei der seriellen 
Schnittstelle (RS232 oder V24) für je¬ 
des Zeichen die acht einzelnen Bits ei¬ 
nes Byte nacheinander auf einer Über¬ 
tragungsleitung als Datentelegramm 
vom Computer an den Drucker über¬ 
mittelt werden, werden sie bei der pa¬ 


rallelen Schnittstelle (Centronics) ne¬ 
beneinander auf acht Datenleitungen 
zusammen mit einem Taktimpuls auf 
einer separaten Leitung dem Drucker 
angeboten. 

Die Computer der CPC-Familie sind 
werksseitig nur mit einer parallelen 
Schnittstelle ausgestattet. Aus diesem 
Grunde können Sie rein serielle 
Drucker schon jetzt von Ihrer Wunsch¬ 
liste streichen, oder Sie investieren 
noch einige Deutsche Mark in eine ex¬ 
terne RS232-Schftittstelle für Ihren 
CPC. Aber keine Angst, sehr wenige 
Drucker sind mit nur einer Schnittstel¬ 
lenart ausgestattet. 

Der CPC-Druckerausgang, eine 

Centronics-Schnittstel le auf 
Sparflamme 

Es wäre zu schön, um wahr zu sein, 
w'enn sich AMSTRAD an die Norm (in 
diesem Fall an die von der Firma Cen¬ 


tronics eingeführte Norm der paralle¬ 
len Schnittstelle) gehalten hätte, da 
aber eine Signalleitung Computer intern 
benötigt wurde, weist der Datenbus ex¬ 
tern nur sieben Bit Breite auf. und das 
führt zu einem recht unangenehmen Ef¬ 
fekt. Die ASCD-Zeichen ab 128 dezi¬ 
mal können nicht ohne Klimmzüge 
ausgedruckt werden. Darunter fallen 
neben den Grafiksonderzeichen auch in 
der Regel die diversen alphanumeri¬ 
schen Sonderzeichen der verschiede¬ 
nen länderspezifischen Zeichensätzc. 

Beim AMSTRAD-Drucker DMP 2000 
wurden intern beim Umschalten auf 
den deutschen Zeichensatz die deut¬ 
schen Sonderzeichen initialisiert, die 
Grafik-Sonderzeichen jedoch waren 
erst gar nicht im Drucker-ROM gespei¬ 
chert worden. Es blieb also nur der 
Ausw'eg, selbst Sonderzeichen per 
Software zu definieren und im Down- 
load-Modus an den Drucker zu über¬ 
mitteln. 

Das Problem ließ jedoch die Tüftler 
nicht lange ruhen. Durch einen Ein¬ 
griff in die Hardware läßt sich die Ich 
Fende achte Datenleitung doch noch auf 
den Steckerausgang führen und ein 
Softwaretreiber sorgt für die richtige 
Übermittlung der Daten. Damit steht 
dem Anwenderder komplette Zeichen¬ 
satz ohne Ausnahme zur Verfügung. 

Unsere Zeitschrift berichtete schon in 
der Ausgabe 5/86 in einem ausführli¬ 
chen Report über die geglückte By¬ 
pass-Operation für das achte Bit. Wer 
sich für eine Hardcopyroutine inklusi¬ 
ve achtem Bit interessiert, der wird die¬ 
se in der Ausgabe 8/86 der PC Interna¬ 
tional finden. Für alle Unentwegten, 
die auf einer sauberen Lösung ohne 
Eingriff in den Computer beharren, 
empfehlen wir die Anschaffung einer 
externen Centronics-Schnittstelle. 

Pin 14, da war d och noch was ... 

Legen Sie einmal die Belegung der 
Centronics-Schnittstelle und des CPC- 
Druckerausgangs nebeneinander, wer¬ 
den Sie noch weitere Unterschiede fest- 
stcllen: 

Einige Drucker interpretieren ein Low- 
Signal auf Stift 14 (AutoFeed) als Auf¬ 
forderung, nach jeder Zeile einen 
nochmaligen Zeilenvorschub durchzu¬ 
führen. Beim CPC liegt dieser An¬ 
schluß immer auf Low-, Hier hilft nur 
ein Griff zum Lötkolben oder zum Sei¬ 
tenschneider, um die Verbindung zu 
trennen. Auch auf andere Annehmlich¬ 
keiten muß der Anwender verzichten, 
denn auch Rückmeldungen des 
Druckers ignoriert der CPC. da die 
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Signale vom Stecker des Computers 
nicht zum Prozessor gelangen. Einige 
Beispiele hierfür sind die Meldungen 
Papierende oder Fehler. Ja, man muß 
froh sein, daß wenigstens das 
BUSY/READY-Signal dem Computer 
den Status des Druckers anzeigt und 
keine Daten verlorengehen. 

Ke i ne Ver bin dung ohne Kabel 

Wer ein wenig handwerklich veranlagt 
ist, der kann sich sein Druckerkabel 
selbst herstellen. Es werden benötigt: 

— 36polige Flachbandkabel 

— einen 36poligen Centronics-Stecker 

— je nach Ausführung des CPC- 
Druckerausgangs einen weiteren 
36poligen Centronics-Stecker oder 
einen 34poligen Platinenstecker, 
jeweils in der Ausführung für 
Flachbandkabel. 

Verbinden Sie die beiden Stecker wie 
angegeben, und der Spaß kann begin¬ 
nen. Denken Sie bitte daran, gegebe¬ 
nenfalls die Verbindung 14 zu unter¬ 
brechen. Wer nicht so begabt ist, der 
bekommt sein Kabel im Fachhandel. 

Wer die Wahl hat... Die ver¬ 
schiedenen Druckertypen 

Haben Sie sich schon den Hauptanwen¬ 
dungsbereich Ihres neuen Druckers 
überlegt? Legen Sie Wert auf hohe 
Druckqualität. Schnelligkeit, oder ist 
nur das Teuerste gut genug für Sie? 
Spaß beiseite, je nach Anwendungsge¬ 
biet eignen sich die verschiedenen 
Druckertypen besonders gut. 

Beginnen j wir mit dem Typenrad- 
Drucker. Sein Vorteil liegt in einem 
ausgezeichneten Schriftbild, das Sie 


von einer elektrischen Schreibmaschi¬ 
ne her kennen. Nachteile sind die feh¬ 
lende Möglichkeit des Drucks von 
Bildschirmkopien (Hardcopy) und 
Grafiken sowie seine langsame Druck¬ 
geschwindigkeit. 

Als nächstes wenden wir uns den La¬ 
ser-Druckern zu. Sie weisen das abso¬ 
lut beste Druckbild auf. sind jedoch im 
Regelfall für den Heimanwender in der 
Anschaffung und in der Unterhaltung 
nicht tragbar. 

Tintenstrahldrucker sind in der letzten 
Zeit preislich erheblich in den Keller 
gerutscht und bewegen sich im Bereich 
der besseren 24-Nadeldrucker. Vorteil 
dieser Drucker ist. daß sie extrem leise 
arbeiten, das Druckbild jedoch kann 
bei Verwendung von Spezialpapier in 
etwa mit dem der 9-Nadeldrucker kon¬ 
kurrieren. 

Bevor wir uns eingehender mit den 
Nadlern befassen, noch ein kurzer 
Blick auf die Thermodrucker. Diese 
Kategorie führt eher ein Schattenda¬ 
sein, ist relativ langsam, wartungsin¬ 
tensiv und benötigt zudem noch Spe- 
zielpapier. welches nicht immer und 
überall erhältlich ist. Einziger Vorteil 
ist die geringe Lautstärke beim Druck. 
Tja, und damit wären wir bei der gro¬ 
ßen Gruppe der Nadeldrucker, den 
Ausgabegeräten, die sich auch minder¬ 
bemittelte Heimanwender ohne Klein¬ 
kredit beschaffen können. 

Neun Nadeln oder darf es etwas 
mehr sein? 

Noch vor einiger Zeit waren Nadel¬ 
drucker mit mehr als neun Nadeln fast 
unerschwinglich teuer. Mittlerweile 
aber sind die Preise aufgrund der hohen 


Nachfrage erheblich in den Keller ge¬ 
rutscht. und es stellt sich die Frage, ob 
man nicht ein paar blaue Scheine drau¬ 
flegen und sich einen 24-Nadel- 
drucker zu legen soll. 

Was. bietet der 24-Nadler mehr gegen¬ 
über dem 9-Nadler? Kurz gesagt, ein 
exakteres Druckbild im Text und Gra¬ 
fikmodus. Durch die größere Dichte 
und Anzahl der Nadeln lassen sich im 
Textmodus Druckqualitäten erreichen, 
die denen von Typenraddruckern äh¬ 
neln. Benötigt wird diese "LETTER 
QUALITY” (LQ) für Korresponden¬ 
zen. Vorlagen, usw. Vergleichen Sie 
einmal unsere Druckproben. Draft und 
NLQ eines 9-Nadlers und Draft und 
LQ eines 24-Nadel-Druckers. 

Aber nicht nur im Textmodus zeigen 
sich die Unterschiede. Die Grafikauf¬ 
lösung bei den 24-Nadlern ist ebenfalls 
höher. Während der Grenzwert bei den 
9-Nadel-Druekern bei 120/140 dpi 
(Dots per inch/ Punkte pro Zoll) liegt, 
erreichen 24-Nadler eine maximale 
Auflösung von 180 dpi (bei NEC- 
Druckern sogar erstmals bis 360 dpi). 
Wer seinen Drucker "nur" zur gele¬ 
gentlichen Ausgabe von Listings und 
kleinen Grafiken ohne großen An¬ 
spruch auf maximale Auflösung ver¬ 
wenden will, dem wird in der Regel ein 
guter 9-Nadel-Drucker reichen. Wer 
jedoch Wert auf LQ-Druck und hohe 
Grafikauflösung legt, dem raten wir zu 
einem 24-Nadel-Drucker. 

Kompatibilität, was bedeutet 

das eigentlich? 

Schlagworte, wie "voll Epson-kompa¬ 
tibel, lBM-Zeichensatz, verschiedene 
Emulationen inbegriffen", schwirren 



Abb. I: Um mir einem Computer wie eiern CPC richtig ctrbeiren :ii können, 
kommt man um eien Kauf eines Druckers nicht herum, nur - welchen soll 
mein nehmen ? 



Abb. 2: Auch die PC W-Rechner können neben ihrem eigenen Drucker einen 
Fremddnie'ker mit Centronics-Anschluß betreiben. wenn sie selbst über die 
Centronics-Schnittstelle verfügen, 
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I Bericht 


10 REM Druckertestprogramm 

20 REM vor dem Starten bitte erst die ents 
prechenden Steuersequenzen aus dem 
Handbuch uebernehemen 
30 reset$ =CHR$ ( 27)+CHR$ ( 64) 

:REM Drucker zuruecksetzen 
40 deuon$ =CHR$ ( 27)+CHR$ ( 82)+CHR$(2 ) 

: REM Deutscher Zeichensatz ein 
50 deuoff $ =CHR$(27)+CHR$(82)+CHR$(0) 

:REM Deutscher Zeichensatz aus 
60 ku rson$ =CHR$(27 ) +CHR$ ( 52) 

:REM Kursivdruck an 
70 ku rso f f$=CHR$ (2 7) +CHR$( 53) 

:REM Kursivdruck aus 
80 norm! =CHR$ ( 2 7) +CHR$( 1 20)+CHR$ (0 ) 

:REM Normalschrift 

90 n1qon$ = CHR$ ( 2 7) +CHR$ (1 20)+CHR$( 1 ) 

:REM NLQ ein 

100 hochon$=CHR$ ( 2 7)+CHR$ ( 83)+CHR$(0) 

:REM Hochstellung ein 
110 tiefon$=CHR$ (27 )+CHR$ ( 63)+CHR$(l) 

:REM Tiefstellung ein 
120 htoff$ =CHR$(27)+CHR$( 84) 

:REM Hoch/Tief aus 

130 untOn$ =CHR$(27)+CHR$( 45)+CHR$(l) 

:REM Unterstreichen ein 
140 untoff$=CHR$ ( 2 7)+CHR$( 45)+CHR$(0) 


[2029 ] 
[6450] 

[3494 ] 
[2147] 
[3871 ] 
[3137] 
[3086] 
(4162] 
[2855] 
[3137] 
[4454] 
[2872] 
[3212 ] 
[3181 ] 


:REM Unterstreichen aus 
150 PRINT#8,reset$ 

160 PRlNT#8,norm$;htoff$;"Normalschrift 
";hochon$;" Hoch";htoff$;" und";tiefon$ 
Tief";htoff$ 

170 PRINT#8,n1qon$;htoff$;"Near Letter Qua 
11 ty";hochon$; " Hoch";htoff$;" und";tiefon 
$; " Tief " ; htoff$ 

180 PRINT#8,kurson$;htoff$;"Kursivschrift 
"Ihochon$ ; " Hochhtoff$; " und";tiefo 
n$;“ Tief";htoff$;kursoff$ 

190 PRINT#8,deuon$;"Und mit deutschen Umla 
Uten {[}]!\deuoff$ 

200 PRINT#8,unton$;norm$;htoff$;"Normalsch 
rift ;hochonj;" Hoch";htoff$;" und"; 

tiefon$;" Tief " ;htoff$;" Unterstrichen";un 
tof f$ 

210 PRINT#8,unton$;nlqon$;htoff$Near Let 
ter Qual i ty";hochon$;" Hoch";htoff$; " und" 
;tiefon$;" Tief";htoff$;" Unterstrichen" ;u 
ntoff$ 

220 PRINT#8,unton$;kurson$;htoff$;"Kursivs 
chrift ";hochon$;" Hoch";htoff$;" und 

";ttefon$;" Ti ef";htoff$ ; " Unterstrichen" ; 
untoff$;kursoff$ 

230 PRINT#8,untonj;deuonj;"Und mit deutsch 
en Umlauten {[ } ] J\ Unterstrichen";deuoff$ 


[1435] 

[ 6855 ] 

[6285 ] 

[6448] 

[5305] 

[9363] 

[9569] 

[10963] 

[6990 ] 


Listing Druckerlesl 


Listing Druckertest 


Normal schritt Hoch und Tlef 

Near Letter Quality Hoch und rief 
Kursivschrift noch un< -j Tief 
Und mit deutschen Umlauten äÄüÜöö 


imoi iTicj i senr ITC - 

Near Letter Quality Bocl1 

...unci.. 

und 

T 1 e f 

Tief 

_yntersr r i cne n 

Unterstrichen 

Kursivschrift Hoch 

und 

Tief 

Un terstrichen 

Und mit deutschen Umlauten äÄüÜöö 

Unterstrichen 


Abb. 3: Dieses kleine Testprogramin zeigt Ihnen, ob Sie den Drucker richtig eingestellt haben, der 
Ausdruck sollte dann wie im Beispiel aussehen. 


durch die verschiedensten Computer- 
Fachzeitschriften. Was steckt dahinter 
und was sollte man beim Druckerkauf 
beachten? 

Drucker lassen durch bestimmte Steu¬ 
erkommandos manipulieren, beispiels¬ 
weise können verschiedene Zeilenab- 
stände, Zeichensätze oder auch nur ein 
Blattvorschub eingestellt werden. Ep¬ 
son war eine der ersten Firmen, die für 
ihre Drucker eine gewisse Anzahl von 
Befehlen zur Steuerung per Software 
zur Verfügung stellte. Diese Steuerzei¬ 
chen wurden auch von anderen 
Druckerherstellern teilweise überhom- 
men und stellen mittlerweile einen 
Standard dar. 

Die Epson-KompatibiJität ist aber nicht 
zu verwechseln mit dem Epson-Zei- 
chensatz. Dieser umfaßt im Gegensatz 
zum IBM-Zeichensatz nicht alle 256 
ASCII-Zeichen, sondern nur die unte¬ 
ren 128 Zeichen, das heißt im Klartext, 
die Sonderzeichen, wie beispielsweise 
die Blockgrafiksymbole oder nationale 
Sonderzeichen, fehlen. 

Die bekannten Anwenderprogramme 
bieten in der Regel eine Vielzahl von 
Druckertreibern an, aber auch die 
Druckerhersteller sind den Softw'are- 
Entwicklern entgegengekommen. Ne¬ 
ben Ihren hausgemachten Steuerzei¬ 
chen beinhalten die Drucker noch so¬ 
genannte Emulationen, die es der Soft¬ 
wareschnittstelle beispielsweise er¬ 
möglichen, Epson- oder IBM-Steuer- 
kommandos zu verwenden, obwohl 
Brother, NEC, Sanyo oder ein anderer 
Drucker angeschlosscn sind. 

Achten Sie bitte beim Kauf, wenn Sie 


schon unbedingt einen Exoten haben 
möchten, auf eine Emulation eines be¬ 
kannten Druckertyps. Nur so haben Sie 
die Gewißheit, daß Sie später bei der 
Installation Ihrer Textverarbeitung, 
Datenbank oder anderen Anwendung 
keine Pleite erleben. 

Zwischendurch ein kleines 
Beispiel zum Thema 
Steuerzeichen 

Aufgrund der vielen Anfragen unserer 
Leser wissen wir. daß es immer wieder 
Probleme mit der Druckeransteuerung 
gibt. Deshalb hierein kurzes Beispiel. 
Nehmen Sie bitte Ihr Druckerhandbuch 
aus dem Regal und vergleichen Sie, ob 
der Drucker für die nachfolgenden 
Ausführungen die gleichen Codes ver¬ 
wendet. Wir wollen nacheinander: 


— den Drucker initialisieren oder vor¬ 
her eingegebene Steuerkommandos 
löschen, 

— einen Zeilenvorschub von acht Zei¬ 
ten pro Zoll einstellen, 

— Proportionalschrift einstellen, 

— Text im Doppeldruck ausgeben. 

Für die CPC-Familie ergeben sich da¬ 
mit folgende Basic-Zeilen: 

PRINT # 8,cht%(2 7); 

PRINT #8,chr$(27); "0"; 

PRINT #8,chr$(27);“G“; 

PRINT # 8,chr$(2 7); "p " ;chr$(I); 

Dies entspricht den folgenden Steuer- 
sequenzen: 

- ESC @ 

- ESC 0 

— ESC p (n) 
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Achten Sic in jedem Falle auf die Groß- 
bzw. Kleinschreibung der Buchstaben, 
sie haben unterschiedliche Bedeutung. 

Nicht nur Text so llte der 
Drucker wi ed er geben... 

Ganz kurz haben wir das Thema Grafik 
erwähnt. Alle Nadeldrucker sind dank 
der Möglichkeit, einzelne Nadeln sepa¬ 
rat ansteuern zu können, voll grafikfä¬ 
hig. Damit lassen sich nicht Bild¬ 
schirm-Hardcopies von Ihren Grafik- 
Entwürfen drucken, Sie können mit 
entsprechender Software eigene Zei¬ 
chensätze entwerfen und sie im Down- 
load-Modus im Drucker speichern und 
Texte entsprechend ausgeben. Sie soll¬ 
ten sich jedoch vor dem Kauf informie¬ 
ren. ob Ihr Drucker den Download- 
Modus unterstützt. 

Die Ansteuerung der einzelnen Na¬ 
deln, um beispielsweise eine Hardcopy 
dem Drucker zu entlocken, ist nicht ge¬ 
rade einfach. Gibt man beispielsweise 
eine falsche Anzahl der zu übermitteln¬ 
den Grafikdaten an. kann es dazu füh¬ 
ren. daß anstelle der gewünschten 
Punkte Buchstaben auf dem Papier er¬ 
scheinen, da der Drucker überschüssi¬ 
ge Daten als ASCII-Zeichen interpre¬ 
tiert und ausgibt. 

Da mittlerweile für die CPCs einige 
hervorragende Hardcopy-Programme 
mit unterschiedlichen Druckenreibern 
veröffentlicht wurden oder vertrieben 
werden (z.B. Copyshop), wollen wir 
dieses Thema nicht bis in das kleinste 
Detail ausreizen, da auch hier jeder 
Drucker so seine Eigenheiten hat, son¬ 
dern nur soviel anmerken, daß jedes 
Handbuch zum gekauften Drucker in 
irgendeiner Form auf dieses Thema 
eingeht. Die Handbücher bilden zwar 
meistens nicht das Non-Plus-Ultra der 
Technikliteratur, jedoch kann man an¬ 
hand der dargestellten Listings selbst 
Versuche anstellen, ohne fürchten zu 
müssen, irgend etwas an dem teuren 
Teil zu beschädigen. 

Sonstige Kleinigkeiten, die zu 
beachten sind 

Die Angaben über die Schreibge¬ 
schwindigkeiten sollten Sie besser mit 
Vorsicht genießen. Verschiedene 
Druckertests haben ergeben, daß die 
Hersteller meist ein bißchen übertrei¬ 
ben. In der Regel wird es bei Ihnen im 


trauten Heim auch nicht auf ein paar 
Sekunden oder Minuten mehr ankom¬ 
men, oder? 

Verschiedene Hersteller bieten neben 
dem Stachelwalzenantrieb im Zug¬ 
oder Schubmodus auch noch einen 
Gummiwalzenantrieb für Einzelblatt¬ 
verarbeitung an. Im Zubehör finden 
sich dann noch druckerspezifische 
Schächte zur vollautomatischen Ein¬ 
zelblattzuführung. Sie sind in den 
Grundausführungen nicht enthalten. 

Auch die Pufferspeicher der Drucker 
sind unterschiedlich groß, ln diesem 
Speicher werden Daten vom Compu¬ 
ter, die zur Ausgabe bestimmt sind, 
zwischengespeichert, da der Drucker 
um einiges langsamer ist, als die Zen¬ 
traleinheit. Je größer dieser Speicher 
ist, um so eher wird der Prozessor wie¬ 
der frei für andere Aufgaben innerhalb 
des jeweiligen Programms. Der 
Druckerarbeitet im Hintergrund, wäh¬ 
rend der Schreiber des Textes schon 
längst wieder einen neuen Text von der 
Diskette in die Textverarbeitung holt, 
liest und zur Ausgabe vorbereitet. 

Ein weiterer wichtiger Punkt ist die 
Hardwareeinstellung des Druckers. 
Neben der programmgesteuerten 
Druckereinstellung über Kommandos 
lassen sich bestimmte wichtige Funk¬ 
tionen auch auf Hardwareebene ein¬ 
stellen. das heißt, diese Einstellung 
wird gespeichert und steht beim Ein¬ 
schalten des Druckers zur Verfügung. 
Diese Einstellung erfolgt noch bei vie¬ 
len Druckern besonders der unteren 
Preisklasse über DIP-Schalter oder im 
Volksmund “Mäuseklaviere". Achten 
Sie bitte darauf, daß die Schalter gut 
zugänglich sind und Sie nicht zu jeder 
Neueinstellung den halben Drucker 
zerlegen müssen. Eleganter ist natür¬ 
lich die Programmierung über Druck¬ 
tasten. wie Sie sie beispielsweise bei 
der neueren Druckergeneration finden. 
Die augenblicklich gespeicherte Ein¬ 
stellung wird überden Drucker ausge¬ 
geben. und Sie können diese über meh¬ 
rere Tasten im Dialog mit Ihrem 
Drucker verändern und erneut spei¬ 
chern. Beachten Sie aber, daß in jedem 
Fall eine Veränderung per Software 
eine höhere Priorität aufweist, als eine 
Hard wareeinstel 1 ung. 

In unserer nachfolgenden Übersicht 
haben wir einige Drucker und ihre 
wichtigsten Merkmale aufgelistet. Wir 
haben beim Kaufpreis eine Obergrenze 
von ca. 1200.— DM angesetzt, da 


Drucker der oberen Preisklasse für Ih¬ 
ren Anwendungsbereich recht uninte¬ 
ressant sein dürften. Die Preise sind 
nur als ungefähre Richtschnur anzuse¬ 
hen. Sie können regional stark variie¬ 
ren. Auch erhebt unsere Übersicht 
nicht den Anspruch auf Vollständig¬ 
keit. dazu ist der Druckermarkt mitt¬ 
lerweile zu groß geworden. Falls Sie 
dennoch Ihren Drucker finden sollten, 
wünschen wir Dinen Kopf- und Nadel¬ 
bruch. 


Übrigens: Für die PC-Besitzer un¬ 
ter Ihnen, die sich bis jetzt mit einem 
Druckerohne IBM-Zeichensatz her¬ 
umschlagen müssen (Konfiguratio¬ 
nen ä la PC 15 12/1640 und NLQ 401 
sind keine Seltenheit), bietet unsere 
Schwesterzeitschrift PCpur 2/89 
eine Anpassung an, die Ihren 
Drucker dazu befähigt, sich an die 
normalen (Druck-) Gegebenheiten 
angleichen zu lassen. Reinschauen 
lohnt sich! 


Zum Abschluß bringen w ir einen Über¬ 
blick über die am meisten im CPC-, 
PCW- und PC-Be reich vorhandenen 
Drucker. Sicher werden Sie sagen, daß 
es weitaus mehr Drucker auf dem 
Markt gibt. Dies stimmt ja auch, wir 
wollen Sie jedoch nicht mit Informatio¬ 
nen erschlagen, sondern Hinweise 
dazu geben, wie man sich für einen 
Druckertyp mit Hilfe von Unterlagen 
wie unserem Bericht entscheiden kann 
und welche Abstriche beim Kauf even¬ 
tuell zu machen sind. Unser Überblick 
ist mit Angaben über Hersteller und 
Preis sowie einer Kurzinformation 
über allgemeine Druckerdaten wie Zei¬ 
chen pro Sekunde (CPS), Schriftarten 
und Zeichensätze und Besonderheiten, 
die beim Kauf zu beachten sind, verse¬ 
hen. Alle Infos beziehen sich dabei auf 
Herstellerangaben, die Preise eben¬ 
falls. Die Angaben zur CPS Entwurfs¬ 
und Schönschriftdruck werden im For¬ 
mal " Entwurf/NLQ“ angegeben. 


(Hans- Werner Fromme/jb) 
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Drucker: 

DMP 2000/2160 

Hersteller: 

Amstrad 

Preis: 

ca. DM 500,- 



Drucker: 

MT 81 

Hersteller: 
Mannesmann 
Tally 

Preis: 

DM 399. - 


Info: 9-Nadel-Matrixdrucker, Entwurfs- und NLQ-Schrift. 
105/27 CPS (DMP 2000), 160/40 CPS (DMP 2160), Blatt¬ 
größe = DIN A4, Papiereinzug = Traktor, Zeichensätze = 
EPSON, grafikfähig 

Einsatz am: CPC/PCW (Joyce (mit Schnittstelle)) 


Info: 9-Nadel-Matrixdrucker, Entwurfs- und NLQ-Druck. 
130/26 CPS. Blattgröße DIN A4, Papiereinzug: Friktionsan¬ 
trieb (optional) und Traktor, Zeichensätze: IBM/EPSON, 
grafikfähig. Besonderheit: Einsatz von teuren Carbon-Bän¬ 
dern 

Einsatz am: CPC/PCW (mit Schniltstelle)/PC 



Drucker: 
DMP 3160 

Hersteller: 

Amstrad 

Preis: 

DM 599,- 



D rucke r: 

LSP 120 

Hersteller: 

Citizen 

Preis: 

DM 399. - 
(mit Interface) 


Info: 9-Nadel-Matrixdrucker, Entwurfs- und NLQ-Schril't. 
160/50 CPS, Blattgröße DIN A4. Papiereinzug = Traktor 
mit Einzug von vorn, Zeichensätze = EPSON, IBM, grafik¬ 
fähig 

Einsatz am: CPC/PCW (Joyce (mit Schnittstclle))/PC 


Info: 9-Nadel-Matrixdrucker. Entwurfs- und NLQ-Druck. 
120/25 CPS. Blattgröße DIN A4. Papiereinzug = Traktor. 
Zeichensätze = IBM/EPSON, grafikfähig. Besonderheit: 
benötigt Centronics-Interface 
Einsatz am: CPC/PCW (mit Schnittstelle)/PC 



Drucker: 

Präsident Printer 
6320 

Hersteller: 

VEB Robotron 

Preis: 

DM 399,- 



Drucker: 

M-1409 

Hersteller: 

Brother 

Preis: 

ca. DM 800. - 


Info: 9-Nadel-Matrixdrucker, Entwurfs- und NLQ-Druck. 
100/20 CPS, Blattgröße DIN A4, Papiereinzug = Traktor, 
Zeichensätze = verschiedene (sind durch Einsatz optional zu 
kaufender Interfaces erreichbar), grafikfähig 

Einsatz am: CPC/PCW (mit Schnittstelle)/PC (auf Zeichen¬ 
satz-Interface achten) 


Info: 9-Nadel-Matrixdrucker. Entwurfs- und NLQ-Druck. 
180/45 CPS. Blattgröße DIN A4. Papiereinzug = Traktor. 
Zeichensätze: EPSON/IBM. grafikfähig. Besonderheit: ver¬ 
fügt zusätzlich über serielle Schnittstelle (RS 232) 

Einsatz am: CPC/PCW (mit Schnittstelle)/PC 
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Drucker: 

SL 80 AI 

Hersteller: 

Seikosha 

Preis: 

ca. DM 800 , — 



Drucker: 

LQ 500 

Hersteller: 

Epson 

Preis: 

ca. DM 900 , - 


Info: 24-Nadel-Matrixdrucker, 12 Schriftarten, 135/54 
CPS, Blattgröße = DIN A4, Papiereinzug = Traktor, Zei¬ 
chensätze = EPSON/IBM, grafikfähig. 

Einsatz am: CPC/PCW (Joyce (mit Schnittstelle)) 


Info: 24-Nadel-Matrixdrucker. mehrere Schriftarten, meh¬ 
rere Zeichensätze (darunter acht internationale Zeichensät¬ 
ze. erweiterten EPSON-Grafikzeichensatz), 180/50 CPS, 
Blattgröße DIN A4, Papiereinzug = Traktor (für Einzelblatt 
vorbereitet), grafikfällig. 

Einsatz am: CPC/PCW (mit Schnittstelle)/PC 



Drucker: 

NB 24-10 

Hersteller: 

Star 

Preis: 

ca. DM 1700.- 



Drucker: 
Pinwriter 6 

Hersteller: 

NEC 

Preis: 

ca. DM 1300.- 
(mit Interface) 


Info: 24-Nadel-Matrixdrucker, mehrere Schriftarten (durch 
Schriftart-Erweiterungskassetten). 216/72 CPS, Blattgröße 
DIN A4. Papiereinzug = Traktor (Einzclblatteinzug optio¬ 
nal), Zeichensätze = EPSON. IBM, grafikfähig. 

Einsatz am: CPC/PCW (Joyce (mit Schnittstelle))/PC 


Info: 24-Nadel-Matrixdrucker. Entwurfs- und NLQ-Druck , 
216/72 CPS. Blattgröße DIN A4, Papiereinzug = Traktor 
(Einzelblatteinzug optional), Zeichensätze = IBM/EPSON 
(integrierter Grafikzeichensatz. 12 gespeicherte, ein frei pro- 
grammierbarer), grafikfähig. 

Einsatz am: CPC/PCW (mit Schnittstelle)/PC 



Drucker: 
LQ 3500 

Hersteller: 

Amstrad 

Preis: 

DM 899. - 



Drucker: 

P2200 

Hersteller: 

NEC 

Preis: 

ca. DM 900. - 


Info: 24-Nadel-Matrixdrucker, Entwurfs- und NLQ-Druck, 
160/64 CPS, Blattgröße DIN A4, Papiereinzug = Traktor/ 
Einzelblatt, Zeichensätze = EPSON/IBM, grafikfähig. 

Einsatz am: CPC/PCW (mit Schnittstellc)/PC 


Info: 24-Nadel-Matrixdrucker, Entwurfs- und NLQ-Druck, 
170/50 CPS, Blattgröße DIN A4, Papiereinzug = Traktor 
(Einzelblatteinzug optional), Zeichensätze: EPSON/IBM. 
grafikfähig. 

Einsatz am: CPC/PCW (mit Schnittstelle)/PC 
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The Animator 

Bewegungen perfekt simuliert 

Dieses Programm ermöglicht Ihnen, Bildfolgen komprimiert abzuspeichern 
und wieder darzustellen. Es eignet sich insbesondere zur Erstellung von 
Grafikdemos und animierten Programm vorspännen. Es kann aber z.B. 
auch verwendet werden, um in einem selbstgeschriebenen Basic-Adventure 
animierte Grafiken auf den Bildschirm zu bringen. 


“The Animator“ besteht aus zwei Tei¬ 
len. Teil 1 dient zum Erstellen. Teil 2 
zum Abspielen von Animationsdatei¬ 
en. Beide Teile sind als RSX-Erweite- 
rung ausgelegt und liegen als Datalader 
vor. Startet man diesen, so wird, falls 
kein Prüfsummenfehler aufgetreten ist, 
die Datei “CREATOR.BIN“ bzw. 
“ANIMATOR.BIN“ auf Diskette ab¬ 
gespeichert. 

Der Creator 

Die Datei “CREATOR.BIN“ wird fol¬ 
gendermaßen geladen: 

SYMBOL AFTER 256: MEMORY &4FFF LOAD"CREA- 
TOR.BIM“,&A000:CALL &A000 

Diese Befehlsfolge sollten Sic an den 
Anfang des Programms stellen, das die 
Animationsdatei erstellen soll. Der 
Creator dient zum Erstellen von Ani¬ 
mationen mit maximal 64 Einzelbil¬ 
dern. Er stellt folgende Befehle zur 
Verfügung: 

l.| NEW ANIM,@name$ 
,x,y,br,ho,typ 

Dieser Befehl öffnet eine neue Anima¬ 
tionsdatei. “name$“ legt hierbei den 
Dateinamen fest. Mit “x,y,br" und 
“ho“ wird der Bereich des Bildschirms 
festgelegt, dessen Inhalt abgespeichert 
wird. Damit kann man die Animation 
auf einen kleinen Bereich des Bild¬ 
schirms beschränken und spart so Spei¬ 


cherplatz. x und y legen die linke obere 
Ecke dieses Bereichs fest. Für x kön¬ 
nen Werte von 0 bis 79, für y Werte 
von 0 bis 199 eingesetzt werden, wobei 
y=() die oberste Bildschirmzeile ist. 
Beim Setzen der Breite und Höhe des 
Bereichs (br und ho) muß beachtet wer¬ 
den, daß x=br nicht größer als 80 und 
y + ho nicht größer als 200 werden 
darf. Der Parameter-Typ schließlich 
legt den Animationstyp fest. Es sind 
folgende Optionen vorhanden: 
typ = 1: Setzt man “typ“ auf 1. so wird 
beim ersten Bild der Animation der 
Bildschirminhalt in einer gesonderten 
Datei abgespeichert. Dabei ist zu be¬ 
achten. daß die beim NEWANIM-Be- 
fiehl gewählten Bildschirmgrenzen 
nicht beachtet werden und immer der 
gesamte Bildschirminhalt abgespei¬ 
chert wird. Der Dateiname dieser Datei 
hat ein “S“ als letzten Buchstaben. 
Heißt die Animationsdatei also 
“DEMO.ANI“, so trägt die Bilddatei 
den Namen “DEMO.ANS“. Dieser 
Animationstyp sollte dann gewählt 
werden, wenn zuwenig Speicherplatz 
für eine Animation vorhanden ist oder 
wenn man eine Animation mit einem 
aufwendigen Hintergrund, der sich 
über den ganzen Bildschirm erstreckt, 
erzeugen will. Im RAM stehen beim 
Abspielen der Animation nur noch die 
Unterschiede von Bild zu Bild, der 


Hintergrund wird am Anfang in den 
Bildschirmspeicher geladen, nimmt 
aber keinen zusätzlichen Speicherplatz 
weg. 

typ = 2: Wählt man diese Option, so 
läuft die Animation nach dem Errei¬ 
chen des letzten Bildes wieder rück¬ 
wärts bis zum Anfangsbild. 

typ=4: Diese Option dient zur ständi¬ 
gen Wiederholung der Animation. Das 
heißt, das Programm fängt bei Errei¬ 
chen des letzten Bildes (oder, wenn 
Option 2 gewählt ist. bei Erreichen des 
ersten Bildes) wieder mit dem ersten 
Bild an. Wenn Option 2 (vor¬ 
wärts/rückwärts) nicht gewählt ist und 
man Endlos-Animationen erzeugen 
will, muß man nach dem letzten Bild 
noch einmal das erste Bild mit NEXT- 
PIC abspeichem, da dann die Unter¬ 
schiede zwischen dem letzten und er¬ 
sten Bild berechnet werden. 

Alle Optionen können auch miteinan¬ 
der kombiniert werden. Will man z.B. 
eine Endlosanimation erzeugen, bei 
der das erste Bild als Screen abgespei¬ 
chert wird, so muß man als Animati¬ 
onstyp 5 ( = 1 +4) wählen. 

2. | NEXTPIC 

Dieser Befehl schreibt die Unterschie¬ 
de zwischen der neuen (auf dem Bild¬ 
schirm befindlichen) Animationsphase 
und dem alten Bild in die Animations¬ 
datei. Beim ersten NEXTPIC-Aufruf 
nach dem Öffnen einer neuen Anima¬ 
tionsdatei wird entweder das Bild als 
Screen abgespeichert (Option 1) oder 
ebenfalls komprimiert in die Anima¬ 
tionsdatei geschrieben. 

3. | ENDANIM 

Die Animationsdatei w ird geschlossen. 
Dieser Befehl muß nach dem Abspei¬ 
chern des letzten Bildes ausgeführt 
werden. 



Hi Ul I : Eine mit Animator erstellte Demo-Animation. Bild 2: Auch dieses animiene Bild wurde vom Animator erzeugt 
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4. | BORDER 

Dieser Befehl zeigt den mit NEWA- 
NIM gewählten Bildschirmbereich 
durch einen Rahmen an. Alles, was 
sich innerhalb dieses Rahmens befin¬ 
det. wird bei einem NEXTPIC-Aufruf 
abgespeichert. 

5. | MEMORY,@m% 

Dieser Befehl gibt in der angegebenen 
Variablen den Speicherplatz an, den 
die Animation bis jetzt benötigt, wenn 
sie später ins RAM geladen wird (auf 
der Diskette ist die Animationsdatei um 
1/7 größer). Die angegebene Variable 
muß zuvor schon einmal verwendet 
worden sein. Bsp.: m%=0:| MEMO¬ 
RY, @m% (m% enthält nun den Spei¬ 
cherplatzbedarf) 

6. | LOADSCREEN,@name$ 

Dieser Befehl dient zum Laden einer 
Bilddatei unter dem Namen name$ in 
den Bildschirmspeicher, ohne daß hier¬ 
für ein Kassettenpuffer benötigt wird. 
Man kann z.B. mit einem Malpro¬ 
gramm den Hintergrund Zeichnern'die¬ 
sen bei jedem neuen Bild laden und da¬ 
nach die Animation zeichnen. Oder 
man zeichnet die Animationsphasen 
mit dem Malprogramm, speichert jede 
Phase einzeln ab und erzeugt daraus 
mit LOADSCREEN und NEXTP1C 
eine Animationsdatei. 

Der Animator 

Dieses Programm dient zum Abspiclcn 
der mit dem Creator erstellten Anima¬ 
tionsdateien. Geladen wird er folgen¬ 
dermaßen : 

SYMBOL AFTER 256:MEMORY &9EFF:L0AD“ANI- 
MATOR.BIN",&9F00: CALL &9F00: MEMORY 
adr-1 

Die Variable adr gibt hierbei die erste 
Speicheradresse an. die für die Anima¬ 
tionsdaten verwendet werden darf. 
Wird z.B. für adr ein Wert von &3000 
gewählt, so kann der Bereich von 
&3000-&9EFF für Animationsdaten 
verwendet werden. Das entspricht ei¬ 
ner 28416 Byte langen Animation. 

Um Animationen zu laden und abzu¬ 
spielen. stellt das Programm folgende 
Befehle zur Verfügung: 

1.1 LOADANIM,@name$,adr,Imod 
Dieser Befehl lädt eine Animation mit 
dem Namen name$ in den Arbeitsspei¬ 
cher. Die Variable adr gibt hierbei die 
Speicheradresse an, an die die Anima¬ 
tion geladen werden soll (siehe oben). 
Es kann immer nur eine einzige Ani¬ 
mation im Speicher stehen, bereits vor¬ 
handene Animationen werden beim 
Laden einer neuen gelöscht. Der Para¬ 
meter lmod hat eine besondere Bedeu¬ 


tung. Wird er auf 1 gesetzt, so wird der 
Bildschirm beim Laden gelöscht und 
als Kassettenpuffer mißbraucht. Will 
man den Bildschirminhalt erhalten, so 
muß man diesen Parameter auf 0 set¬ 
zen. Der Kassettenpuffer wird dann im 
Datenspeicher angelegt, was aber zur 
Folge hat, daß 2048 Bytes weniger für 
die Animation zur Verfügung stehen. 

2. | CYCLE,ge,sfarb,afarb,@col%(0) 
Mil diesem Befehl kann man während 
der Animation in definierten Farbbe- 
reichen die Farben “durch-rotieren“, 
das heißt, Pen 1 erhält die Farbe von 
Pen 2, Pen 2 die Farbe von Pen 3 usw. 
Der Parameter “ge” gibt dabei an, nach 
wie vielen Animationsphasen man die 
Farben wechseln kann. Es können nur 
Werte von 1 bis 255 angegeben wer¬ 
den. ein Wert von 1 bedeutet, daß nach 
jedem neuen Bild die Farben wechseln, 
“sfarb“ legt fest, bei welcher Farbe 
(0-15) der Bereich beginnt, in dem ge¬ 
wechselt wird, “afarb" legt die Größe 
dieses Bereichs fest, das heißt, wie vie¬ 
le Farben “durchrotieren“. In dem 
Ganzzahlfeld “col % “ werden die Far¬ 
ben. die man für den Farbwechsel ver¬ 
wendet, festgelegt, es kann also Werte 
von 0 bis 26 enthalten. Das Feld muß 
genauso viele Elemente enthalten, wie 
in “afarb“ festgelegt. ACHTUNG: 
Der CYCLE-Befehl muß nach LOA¬ 
DANIM ausgeführt werden, da das La¬ 
den einer Animation alte Farbwechsel- 
Kommandos löscht. 

3. | SHOW ANIM, ge, mod 

Dieser Befehl dient zum Abspielen ei¬ 
ner Animation. Dabei ist zu beachten, 
daß der Bereich des Bildschirms, auf 
dem die Animation dargestellt wird 
(siehe NEWANIM), nicht vorher ge¬ 
löscht und auch der Bildschirmmodus 
nicht festgelegt wird. Man muß dies 
also vor dem SHOWANIM-Aufruf 
selbst erledigen. Der Parameter ge 
dient zum Einstellen der Abspielge- 
schwindigkeit und gibt die Verzöge¬ 
rung pro Bild in 1/300 Sekunden an. 
Die Variable “mod“ legt den Abspiel¬ 
modus fest, es sind folgende Werte 
möglich: 0: keine Unterbrechung der 
Animation möglich. 1. Die Animation 
kann durch SPACE abgebrochen 
werden. 

2. Zusätzlich kann die Geschwindig¬ 
keit mit den Cursor-Tasten (links und 
rechts) verändert werden. Außerdem 
kann man die Animation mit “S“ an- 
halten und mit erneutem Druck auf “S“ 
wieder weiterlaufen lassen. 3. Es er¬ 
scheint zusätzlich ein kleines Bild¬ 
schirmfenster in der linken oberen 
Ecke. Dort wird die aktuelle Bildnum¬ 


mer (“P:”) und die Abspielgeschwin¬ 
digkeit ("S:“) angezeigt. Wenn man 
Tastaturabfragen erlaubt (Werte grö¬ 
ßer 0), so hat dies leider zur Folge, daß 
die Animation langsamer abläuft. Soll¬ 
te man also auf der Suche nach der opti¬ 
malen Abspielgeschwindigkeit Modus 
3 wählen, so muß man beachten, daß 
die angezeigte Geschwindigkeit in Mo¬ 
dus 0 eine schnellere Bildfolge be¬ 
wirkt. 

Fehlermeldungen 

Bei der Arbeit mit dem Creator und 
Animator können folgende Fehlermel¬ 
dungen auftreten: 

Wrong number of parameters: 

Es wurden entweder zu viele oder zu 
wenige Parameter übergeben. 

Out of ränge: 

Es wurde bei einem Parameter ein un¬ 
gültiger Wert übergeben. 

No animation file opened: 

Ein NEXTPIC- oder ENDANIM-Be- 
fehl wurde ausgeführt, ohne daß mit 
NEWANIM eine Animationsdatei ge¬ 
öffnet wurde. 

Error while writing: Beim Schreiben 
in die Animationsdatei trat ein Fehler 
auf (Diskette voll oder ähnliches). 

File not found: 

Die angegebene Datei ist nicht vor¬ 
handen. 

Failed to load screen: Entweder wur¬ 
de mit LOADSCREEN versucht, eine 
nicht vorhandene Datei zu laden, oder 
der SHOWANIM-Befehl konnte den 
zu einer Animationsdatei gehörigen 
Screen nicht finden. 

No animation loaded: 

Es wurde ein SHOWANIM-Befehl 
ausgeführt, ohne daß zuvor eine Ani¬ 
mationsdatei erfolgreich geladen 
wurde. 

File too long: 

Die Animation, die mit LOADANIM 
geladen werden sollte, paßt nicht in den 
angegebenen Speicherbereich und 
würde den Animator überschreiben. 

Hinweis: 

Als letztes Listing finden Sie eine 
Demo (Listing 3). Diese besteht aus 
dem Ladeprogramm und dem Haupt¬ 
programm. 

(Oliver Heggelbacher/cd) 
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10 ■ 

20 ' Creator - Datalader 
30 1 

40 SYMBOL AFTER 256:MEMORY «.9FFF 
50 adr=&A000:ze=130 
60 FOR x=0 TO 68:ch=0 

70 FOR c=0 TO 15:READ w$:w=VAL("&"+w$):ch= 
(ch*2 + w ) :ch=ch-INT(ch/65535)*65535:POKE ad 
r,w:adr=adr+1:NEXT c 

80 READ w$ : su = VAL(''&"+v/$ ) : IF su<0 THEN su = 
su+65536 

90 IF su< >ch THEN PRINT "Datafehler in Zei 

1e";ze:END 

100 ze=ze+10:NEXT x 

110 SAVE "creator.bin",b,&A000,&450:END 
120 ‘ '- 

130 DATA 21,14,AO,01,18,AO,CD,Dl,BC,3E,C9, 
32,00,AO,3E,FF, C8EA 

140 DATA 32,40,A4,C9,00,00,00,00,2c,A0.C3, 
58.A0.C3,1B,A1, B510 

150 DATA C3,FB , A 1,C3,37,A2,C3,B6,A2,C3,C9, 
A2,4E,45,57,41, B63A 

160 DATA 4E,49,CD,4E,45,58.54,50,49,C3,45 , 
4E,44,41,4E,49, A725 

170 DATA CD,42,4F,52,44,45,D2,4D,45,4D,4F, 
52,D9,4C,4F,41, 7322 

180 DATA 44,53,43,52,45,45,CE,00,FE,06,C2, 
C2,A3,AF,32,58, C5B9 

190 DATA A4,DD,7E,00,FE,08,02,C7,A3,32,57, 
A4,OD,7E,02,32, F7D9 

200 DATA 56,A4,DO,86,06,FE,C9.D2,C7,A3,DD, 
7E,04,32,55,A4, 3E75 

210 DATA DD,86,08,DA,C7,A3,FE,51,D2,C7,A3, 
DD,7E,06,32,54, 735A 

220 DATA A4,6F,DD,7E,08,32,53,A4,5F,CD,F5, 
A2,22,51,A4,DD, 228D 

230 DATA 66,OB,DD,6E,OA,E5,DD,El,DD,66,02, 

DD, 6E,01,E5,06, 5AB3 

240 DATA 00,DD,7E.00,4F,32,69,A4,11,6C,A4, 
E D,BO,E1,4 F,OD, 06CB 

250 DATA 11 ,7C,A4,ED,BO,3E,53, 12,21,00,60, 
11,01,60,01,FF, 206B 

260 DATA 3F,36,00,ED,B0,AF,32,4D,A4,21,8C, 
A4,22,6A.A4,C9, 380E 

270 DATA 21,6C,A4,11,00,50,3A,69,A4,47,CO, 
8C,BC,D2,CC,A3, BEC6 

280 DAT A 3A,57,A4,CD,47,A3.CD, 11,BC,CD,47, 
A3,3A,53,A4,CD, 28DC 

290 DATA 47,A3.3A,54,A4,CD,47,A3.3A,55,A4, 
CD,47,A3,3A,56. 9E80 

300 DATA A4,CD,47,A3,21,00,00,22,4E,A4,C9, 
3A,4D,A4,FE,FF, EF4C 

310 DATA CA,DA,A3,87,20,1B,3A,57,A4,CB,47, 
28, 11,CD, 14,A3, 1C65 

320 DATA CD,E0,A0,2A,6A,A4,23,23,22,6A,A4, 
C3,F3,A1,CD,EO, C281 

330 DATA AO,ED,SB,4E,A4,2A,6A,A4,73,23,72, 
23,22,6A,A4,3A, 178D 

340 DATA 55,A4,57,3A,56,A4,5F,AF,32,50,A4, 
2A,51,A4,CD,81, F8EB 

350 DATA Al,7E,F3,01,10,7F,ED,49,4F,CB,Fl, 
CB,B9,CB,A9,ED , 9FD6 

360 DATA 49,FB,47,FD,AE,00,FD,70,00,4F,CD, 
BB,Al,C0,Bl,Al, 0DD3 

370 DATA 79,87,20,IC,3A,50,A4,B7,20,06,7E, 
FD.BE,00,20,10, 46C5 

380 DATA 3A,50.A4,3C,32,50,A4,FE,FF,20,10, 

CO, D9,Al, 18,OB, F 62 5 

390 DATA 3A , 50,A4,B7,C4,09,Al, 79,CD,47,A3, 
7B,B7,20,B2,18, CB60 

400 DATA 3B,E5,7C.D6,60,67,E5,FD,El,El,C9, 
23 , 15,C0,3A,55, C8FC 

410 DATA A4,57,C5,4F,06,00,B7,ED,42,7C.C6, 
08,67,30,07,06, 39A4 

420 DATA 40,67,01,50,00,09,CI,1D,C9,AF,CD, 
47,A3,AF,CD,47, 5B46 


Listmg Animator 


[117] 

[1957} 

[117] 

[2370] 

[1147] 

[909] 

[7380] 


[2954] 

[5646] 

[1255] 
[2506] 
[117] 

[ 3702 ] 

[ 2947 ] 

[2206] 

[ 2822 ] 

[3843] 

[3220] 

[3543] 

[3444] 

[2606] 

[3168] 

[3757] 

[2709] 

[2849 ] 

[3361 ] 

[2717] 

[3833] 

[ 2681 ] 

[ 2809 ] 

[2757] 

[3410] 

[ 2282 ] 

[ 2420 ] 

[3228] 

[ 3652 ] 

[ 2588 ] 

[4148] 

[ 3681 ] 

[3230] 

[ 2696] 

(2711 ] 


430 DATA A3,3A,50,A4 
C9,3A,50,A4,B7, 0C90 
440 DATA C4.D9.A1.3A 
3A,4D,A4,FE,FF, 16E9 
450 DATA CA,DA,A3,B7 
A4,CB,27,47,2B, 5ECB 
460 DATA 7E,CD.47,A3 
A3.C0.9D,A3.3A, 1837 

470 DATA 58,A4,B7,28 
CD,8F,BC,D2,CD, BA1C 
480 DATA A3,3E.FF,32 
FF.CA,DA,A3,11, 4ECA 
490 DATA 00,00,21,00. 
6F,26,00,29,29 , EFE4 
500 DATA 29,2B,22.61, 
26,00,29,29,29, B9D0 
510 DATA 22,63,A4,3A, 
26,00,29,22,65, 75D5 

520 DATA A4,3A,54,A4 , 
C7,90,6F,26,00, 1CF2 
530 DATA 29,22,67,A4, 
CD,C0,88,ED,5B, B4EF 
540 DATA 63,A4,2A,65. 
A4,2A,67,A4,CD, B452 
550 DATA F6,BB,ED,5B, 
BB,EO,5B,61,A4, 1DBE 
560 DATA 2A,65,A4,C3, 

DD, 6E,00,DD,66, 429C 
570 DATA 01,ED,5B,4E, 
C2,C2,A3,DD,6E, 5F58 
580 DATA 00,00,66,01, 
6E,01,DD,66,02. 951B 
590 DATA 11,00,CO,CD. 

CO, CD,83,BC,D2, EBB4 

600 DATA DF,A3,C3,7A, 
7D,F5,E6,F8,6F, D9AD 
610 DATA 4F,29,29,09. 
27,CB,27,84,C6, E310 
620 DATA CO,67,19,C9. 
69,A4,47,CD,8C, EBBF 
630 DATA BC, D2 - ,CC, A3, 
00,40,ED,BO.21, E90D 
640 DATA 00,CO,11,00, 
98,BC,D2,CC,A3, 7237 

650 DATA CD,8F,BC,D2, 
A4,23,22,4E.A4 , C79A 
660 DATA 47,3A,60,A4, 
CB,38,CB,F8,21, E67D 
670 DATA 59,A4,3A,58, 
58,A4,3C,32,58, 6E87 
680 OATA A4,FE,07,CO, 
A4,CB,3F,F6,80, 04AC 
690 OATA CD,95,BC,21, 

CO, 95,BC,El,23. 7D78 

700 DATA CI,10,F5,AF, 
E1,C9,3A,60,A4, 1718 
710 OATA CB,3F,32,60, 
7E,FE,FF,28,08, 34B0 
720 DATA E 5,CD,5 A,BB, 
5A,BB,3E,OA,C3, BOEC 
730 DATA 5A,BB,21,E4, 

DF, El,CD,92,BC, 46C2 

740 DATA 3E,FF,32,4D, 
20,A4,18,CC,21, 7E09 

750 DATA 37.A4,18,C7, 
75,6D,62,65 , 72, 1316 

760 DATA 20,6F,66,20, 
65,72. 73 , FF,4F , 357A 

770 DATA 75,74,20,6F, 
FF,45,72,72,6F, D7FA 
780 DATA 72,20,77,68, 
74,69,6E , 67 , FF , B589 
790 DATA 4E,6F,20,61, 
6E,20,66,69,6C, 8C29 
800 DATA 65,20,6F,70 
65,64,20,74,6F , E 7DD 
810 DATA 20,6C,6F,61 
6E,FF,00,00,00, 46FC 


,CD,47,A3,AF,32,50,A4, 
, 4D,A4,3C,32,4D,A4,C9, 
,28,25,2A,6A,A4,3A,4D, 
, 10,F9,3A,4D,A4,CD,47 , 
,06,AF,CD,47,A3,18,F4, 
4D,A4,C9,3A,40,A4,FE, 
00,CD.C9,BB,3A,53,A4, 
A4,6F,3A,55,A4,85,6F, 
54,A4,47,3E,C8,90,6F, 
47,3A,56,A4,80,47,3E, 
ED,58,61,A4,2A,65,A4. 
A4.CD,F6,BB,ED,5B,63, 
61,A4,2A,67,A4,CD,F6, 
F6,BB,FE.01,C2,C2,A3, 
A4,73,23 , 72,C9,FE.01 , 
E5,DD,El,DD,46,00,DO, 
77,BC,D2,DF.A3,21,00, 
BC,26,00,06,00,16,00, 
29 , Fl ,E6,07,CB,2 7,CB, 
21,7C,A4,11,00,50,3A, 
21,00,CO,11,00,60,01 , 
40,01,00,00,3E,02,CD, 
CC,A3,C9,E5,C5,2A,4E, 
CB, 10,CB,1F.32,60,A4, 
A4.85,6F,70,C1,El,3A, 
E5,D5,C5,FD.ES,3A,60, 
59,A4,06,07,C5,E5.7E, 
32.58,A4,FD,E1,C1,D1. 
A4,E5,C5,06,7F,18,B4, 
El , 23 , 18,F3,3E,OD.CD, 
A3,18,E4,21,FF,A3,18, 
A4,21,OC,A4,18,Dl,21, 
5 7, 72,6F , 6E,67,20,6E, 
70,61,72,61,60,65,74, 
66,20,72,61,6E,67,65, 
69,60,65,20,77,72,69, 
6E,69,6D,61,74,69,6F, 
65,6E,FF,46,61,69,6C, 
64,20,73,63,72,65,65, 


[ 2356] 
[3516] 
[2152] 
[2844] 
[1352] 
[3237] 
[1937] 
[3237] 
.[3157] 
[4327] 
[1977] 

[3046] 
[2742] 
[4516] 

[2978] 
[3818] 
[3455] 
[3188] 
[2745] 
[2087 ] 
[3609 ] 
[1698] 
[ 2202 ] 
[1689] 
[3134 ] 

[1199 ] 
[3331 ] 
[ 2983] 
[2775] 
[ 2112 ] 
[ 3932 ] 
[3477] 

[1810] 
[2841] 
[2874] 
[2862] 
[2276] 
[3598] 
[ 2728 ] 
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Programm 


10 • [117] 

20 ' Animator - Datalader [1234] 

30 ' [117] 

40 SYMBOL AFTER 256:MEMORY &9EFF [1886] 

50 adr=&9F00:ze=130 [1065] 

60 FOR x=0 TO 89:ch=0 [1289] 


70 FOR c=0 TO 15:READ w$:w=VAL("&"+w$):ch= [7380] 
(ch*2+w):ch=ch-INT(ch/65535)*65535:POKE ad 
r,w:adr=ad r+ 1:NEXT c 

80 READ w$:su=VAL("&"+w$):IF su<0 THEN su= [2954] 
su+65536 

90 IF suOch THEN PRINT "Datafehler in Zei [5646] 
1 e "; 2 e : E N D 

100 ze=2e+10:NEXT x [1255] 

110 SAVE "an1mator.bin" ,b,&9F00.&5A0 END [2842] 

120 ' [117] 

130 DATA 2 1,2E,9F,01,32,9F,CD,01,BC.3E,C9, [2605 ] 

32,00,9F.AF,32, F502 

140 DATA A2 , A4,3A-, 4F , BB , FE , 78 , C8,21,49 , EF , [1152] 

11,F8,B7,22,8 0 5 A 5 

150 OATA A4,ED,53,78,A3,FE,70,C8,2E,44,22, [2108] 

83,A4,C9,00,00, 4 5 5 E 

160 OATA 00,00,3D,9F,C3,53,9F,C3,6B,Al,C3, [3135] 

E4,AO,4C,4F,41, 808A 

170 DATA 44,41,4E,49.CD,53,48,4F,57,41,4E, [3119] 

49,00,43,59,43, 75C2 

180 DATA 4C,C5,00,FE,03,C2,FC,A3,AF,32,D4, [3454] 

A4,3E,FF,32.AE, 6B2B 

190 DATA A4,21,00,F8,22,E5,A4,DD,66,03,DD, [3546] 
6E,02.DD, 7E,00 , E430 

200 DATA 32,E4,A4,FE,02,02,01,A4,B7,20,07, [2610] 

22,E5,A4, 11,48, CF IC 

210 DATA 20,19,22,9F,A4,E5,DD,66,05,DD,6E, [3866] 

04,E5.DD,El,DD, 992A 

220 DATA 7E,00,DO,66,02,DD,6E,01,E5,32,A7, [3797] 

A4,11,E7,A4,4F, 0541 

230 DATA 06,00,ED,BO,El,11,F7,A4,4F,0D,ED, [3643] 
BO.47,3E,53,12, D57D 

240 DATA 21 ,E7,A4,CD,4D,AO,ED,5B,E5,A4,CD, [2287] 
7 7,BC,02,DC,A3, 7586 

250 DATA CD,8A,AO,32,A5,A4,CD,8A,AO.32,AB, [2670] 

A4,CD,8A,A0,32, 82CC 

260 DATA 9B,A4,5F,D5,CD,8A,AO,32,9C,A4,Dl, [2933] 

6F,CD,4 D,A3,2 2, 53AE 

270 DATA 99,A4,CD,8A,A0,32,9D,A4,CD,8A,A0, [1658] 

32,9E,A4,El,E5, 10E7 

280 DATA CD,8A,A0,30,0B,E1,77,23,7C.FE.9F, [3110] 

20,F2,C3,EA,A3, 8E18 

290 DATA CO,7A,BC,El,2B,7E,28,4F,47,CB,20, [3420] 

11,07,A5,7E,2B, E4F1 

300 DATA 12,13, 10,FA, 79,F5,3A,E4,A4,B7,C4, [2668] 

14,BC,F1,32,A2, F 8 52 

310 DATA A4,C3,6A,A0,3A,AB,A4,CD,0E,BC,21, [2734] 

F7,A4,3A,A7,A4. E32A 

320 DATA 47, 1 1,00,CO,CD,77,BC,21,00,CO,CD, [ 1923 ] 

83,BC,02,06,A4, F8E5 

330 DATA CD,7A.BC,3E,01,32,Al,A4,C9,El,AF, [2640] 

18,C8,3A,E4,A4, 0457 

340 DATA B7,C8,E5,C5,01,06,BC,£0,49,01,01, [3237] 

BD.ED,49,CD,14, 30A3 

350 DATA BC,21,7A,AO,CD,C3,A3,C1,El,C9,3A, [2967] 

E4,A4,B7,C8,01, BD58 

360 DATA 06,BC,ED,49,01,19,BD,ED,49,C9,IF, [3203] 

10,01,4C,4F,41, 610 E 

370 DATA 44,49,4E,47,2E,2E,2E,OD,OA,FF,3A, [3308] 

D4,A4,B7,CC,B2, 64CB 

380 DATA AO,21,05,A4,85,6F,7E,FE,7F,C8,21. [2967] 

DC,A4,3A,D4,A4, 8A39 

390 DATA 85,6F,46,3A,D4,A4,3C,FE,07,20,01, [3295] 
AF,32,04,A4,78, 63A5 

400 DATA 37,C9 , CD,80,BC,32,E3,A4,21 , D5 , A4 , [3053] 

06,07,C5,E5,CD, D2FB 

410 DATA 80,BC,77,El,23,CI,10,F5,DD,21,D5, [1634] 

A4,06,07,3A,E3 , BED4 

420 DATA A4,4F,DD,7E,00,CB,27,CB,19,CB,IF, [3303] 
00,77,07,00,23, DC2E 

430 OATA 10,FO,AF,C9,FE,04,C2,FC,A3,DD,7E, [2629] 

06,B7,CA,48,Al, 9362 

440 DATA 32,B2,A4,DD, 7E,04,32,AE,A4,FE,FF, [3289] 
C8,DD,86,02,FE, AA4F 

450 DATA 11,02,01,A4,DD,7E,02,FE,02,DA,48, [2616] 

Al , 32,BO,A4,21, 929A 


Lisling Animator 


460 DATA 84,A4,16,00,3A,AE,A4,5F,19 ES CI 
3A,BO,A4,5F,19, 59F3 

470 DATA DD,5E,00,DD,56,01,F5,E5,CS 1A FE 
1B,30,17,21,50, EO 7 7 

480 DATA Al,4F,06,00,09,7E,CI,E1,F6,40 77 
02,13,13,23,03, 3E97 

490 DATA Fl,3D,20,E2,C9,El,El,El,3E,FF,32, 
AE,A4,C3,01,A4, C858 

500 DATA 14,04,15,IC,18,1D,OC,05,CD,16,06, 
17,1E,00,1F.0E, C07C 

510 DATA 07,OF , 12,02 , 13,1A,19,1B,OA,03,OB, 
FE,02,C2,FC,A3, 09BE 

520 DATA 3A,A2,A4,B7,CA,F7,A3,DD,7E.00.FE, 
04,D2,01,A4,32, 2680 

530 DATA A4,A4,DD,7E,02,FE,FA,D2,01,A4,B7, 
CA,01,A4,32,98, 9F39 

540 DATA A4,AF,32,A6,A4,3E,01,32,83,A4,3A, 
AE,A4,32,AF,A4, 491F 

550 DATA 3A,BO,A4,32,Bl,A4,AF,32,Al,A4,3A, 
A5,A4,CB,47,C4, DD18 

560 DATA 24,A0,3A,A4,A4,FE,03,CC,88,A4,F3, 
2A,39,00,22,A8, FB09 

570 DATA A4,3E,01,32,A3,A4,F3,AF,32,AA,A4, 
21,6C,A3,22,39, 5DE8 

580 DATA 00,FB,3A,Al .A4,CB,27,4F,06,00,21 , 
07,AS,09,5E,23, 0714 

590 DATA 56,2A,9F,A4,19,E5,DD,E1,2A,99,A4, 
3A,90,A4,57,3A, F31A 

600 DATA 9E,A4,5F.42,DD,7E,00,87,CA,OB.A3, 
AE.77,23,DD,23, 24B3 

610 DATA 10,F2,4A,CD,30,A3,ID.20,EA,3A,AA, 
A4,47,3A,98.A4, 0654 

620 DATA B8,30,F6,3A,AE,A4,FE,FF,C4,78,A3. 
F3,2A,A8,A4,22, 0480 

630 OATA 39,00,FB,3A,A4,A4,FE,03,28,56,B7, 
20,4E,3A,A2,A4, 76E9 

640 DATA 4F,3A,A3,A4,57,3A,Al,A4,82,32,Al. 
A4,B7,28,21,89, 998D 

650 DATA C2,C6,Al,3A,A5,A4,CB,4F,20,07,FE, 
04,30,2 5,C3,F 3, 1401 

660 DATA A2,3E,FF,32,A3,A4,3A,A1,A4,3D,32, 
Al,A4.C3.C6,Al, B975 

670 DATA 3A,A5,A4,FE,04,DA,F3,A2,3E,01,32, 
A3,A4.32,Al,A4, E 7EE 

680 DATA C3,C6,Al,3E,01,32,Al,A4,C3,C6,Al, 
CD,19,BD,18,18, 6EA2 

690 DATA 21,FC,A2,CD,C3,A3,3A,Al,A4,CD,7C, 
A4,21,00,A3,CD, EB95 

700 DATA C3.A3,3A,98,A4,CD,7C,A4,3E,2F,CO, 
IE,BB,20,54,3A, 3E1F 

710 DATA A4,A4,FE,01,28,87,3E,08,CD,IE,BB, 
28,OD,3A,98,A4, 3BA3 

720 DATA 3D,32,98,A4,20,04,3C,32,98,A4,3E, 
01,CD,IE,BB,26, 7F98 

730 DATA 13,3A,98,A4,3C.32,98,A4,FE,FA,20, 
08,3E,F9,32,98, 850A 

740 DATA A4,C3,20,A2,3E,3C,CD,IE,BB,28,OF, 
3E,3C,CD,1E,BB, 8BE2 

750 DATA 20,F9.3A,A6.A4.EE,FF,32,A6,A4,3A, 
A6,A4,B7,20,E4, 7F2B 

760 OATA C3,20,A2,21,05,A3,CD,C3,A3,C3,06, 
BB,OC,50,3A,F F, 8348 

770 DATA OD,OA,53,3A,FF,1A,00,4F,00,18,FF, 
DD,B6,01,C2,FD, EB04 

780 DATA Al,DD,4E,02,DD,23,DD,23,DD,23,79, 
B8,30,OA,78,06, 8619 

790 DATA 00,09,91,47,04,C3,00.A2,C5,7A,90, 
4F,06,00,CD,3D, 3814 

800 DATA A3,CI,79,90,4F,42,ID,C2,1A,A3,C3, 
09,A2,B7,ED,42, B556 

810 DATA 7C,C6,08,67,DO,D6,40,67,01,50,00, 
09.C9,26,00,06, CB77 

820 DATA 00,16,00,7D,F5.E6,F8,6F,4F,29,29, 
09,29,Fl,E6,07, 2D6A 

830 DATA CB,27,CB,27,CB,27,84,C6,CO,67,19, 
C9,F 3,F 5,3A,AA, 688E 

840 DATA A4,3C,32,AA,A4,Fl,FB,C9,3E,FF , 32 , 
FD,Bl,3A,B3,A4, 00C8 

850 DATA 30,32.B3,A4,CO,3A,B2,A4,32,B3,A4, 
3A,AF,A4,4F,06, F6E0 
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[ 3082 ] 
[ 2085] 
[2397] 
[ 3390 ] 
[2712 ] 
[1916] 
[2428] 
[3216] 
[ 1887 ] 
[ 3038 ] 
[1804] 
[2161 ] 
[2744] 
[ 2464 ] 
[3389] 
[3180 ] 
[4098] 
[2091] 
[3683] 
[ 2333 ] 
[4553] 
[3149] 
[3014] 
[3574] 
[2874] 
[2952] 
[4206] 
[2656] 
[2663] 
[2036] 
[2729] 
[2246] 
[ 3958 ] 
[2655] 
[3465] 
[3280] 
[2860] 
[1372] 
[2798] 
[2652] 
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860 DATA 00,21,B4,A4,09,3A,BO,A4,5F,3A,AE, [1958] 
A4,57,06,7F,7A, 9674 

870 DATA F6,20,ED,79,7E,ED,79,23,14,ID,20, [3605] 
Fl,21,AF,A4,34, 1341 

800 DATA 3A,Bl,A4,3D,32,Bl ,A4,CO,3A,BO,A4 , [2565 ] 

32,Bl,A4,3A,AE, 5642 

890 DATA A4,77,C9,7E,FE,FF,C8,23,E5,CD,5A , [1917] 

BB.E1,18,F4,CD, 266C 

900 DATA C3,A3,3E,0D,C0,5A,BB,3E,0A,C3,5A, [2100] 

BB.CD,14,BC,21, A99D 

910 DATA 0D,A4,CD,CF,A3,E1,AF,C3,lE.AO.CD, [2154] 
14,BC,21,IC,A4, 2681 

920 DATA CD,CF,A3.AF.C3,1E,AO,21,2A,A4,18, [3490] 
D3.21.3E.A4,18, D351 

930 DATA CE.21,59,A4,18.C9,El,21,66,A4,C3, [2553] 
CF,A3,46,69,60, F048 

940 DATA 65,20,6E,6F,74,20,66,6F,75,6E,64, [2114] 

FF,46,69,6C,65, 0206 

950 DATA 20,74,6F,6F,20,6C,6F,6E,67,FF,4E, [3168] 

6F,20,61,6E , 69 , 53FF 

960 DATA 6D,61, 74,69,6F,6E,20,6C,6F,61,64 , [3024] 

65,64,FF,57,72, 1736 

970 DATA 6F,6E,67,20,6E, 75,6D,62,65 , 72,20, [2960] 

6F,66,20,70,61 , BF49 

980 DATA 72,61,6D,65,74,65,72.73,FF,4F , 75 , [2302] 

74,20,6F,66,20, 6834 

990 DATA 72,61,6E,67,65,FF,46,61,69,6C.65 , [2384] 
64,20,74,6F,20, E79B 

1000 DATA 6C , 6F , 61.64,20,73,63,72,65,65,6E [ 27 72 ] 
,FF,6F,26,00,CD, 92B5 

1010 DATA 00,89,CD,79,EE,C3,03,B9,21,8E,A4 [2788] 
,C3,C3,A3,1A,00, 08E3 

1020 DATA 05,00,01,OE,00,OF,01,FF,00,00,00 [2879] 
,00,00,00,00,00, BD04 


10 1 [117] 

20 ‘ Ladeprogramm zu Demo 1 [800] 

30 ‘ [117] 

40 SYMBOL AFTER 256:MEMORY &9EFF:LOAD "ani [4738] 
mator.bin":CALL &9F00 

50 MEMORY &FFF [810] 

60 n$="demol.aniLOADANIM,@n$,&1000,2 [ 264 7 ] 

70 INK 0,0:BORDER 0:INK 1,11:INK 2,26:INK [ 1 788 ] 

3,15 

80 MODE 1:ISHOWANIM,13,0 [1630] 


10 ' [117] 

20 ' Grafikdemo 1 [970] 

30 1 [117] 

40 DEFINT a-z:DEFREAL v,c [1144] 


50 INK 0,0:BORDER 0:INK 1,11:INK 2,26:INK [1788] 

3, 15 

60 IF HIMEM > &4FF F THEN SYMBOL AFTER 256:ME [4619] 
MORY &4FFF:LOAD"creator.bin":CALL &A000 


70 a$= "demo1. an i" [1604] 

80 !NEWANIM,@a$,10,60,64, 120,5 [1851] 

90 • [117] 

100 DIM abx(60,5),aby(5) [704] 

110 DEC [133] 

120 FOR x = 0 TO 60:x2= x* 3 + 90 [ 857 ] 


130 FOR y=0 TO 5:abx(x,y) =SI N ( x2) *SI N(y* 30 [3181] 
+ 30)* 1000:NEXT y,x 

140 FOR y =0 TO 5: aby(y )=COS( y* 30+30)*1000: [2362] 


NEXT y 

150 ' [117] 

160 FOR wl=0 TO 90 STEP 5 [821] 

170 MODE 1:DEG:CLG 1 [863] 

180 GOSUB 390 [1006] 

190 WINDOW »1,10,31,2,12:WIND0W SWAP 0,1 [1968] 

200 x1=144:x2=494:y1=382:y2=206 [1277] 

210 PAPER 0:CLS [973] 


220 MOVE x1,y1:DRAW x2,yl:DRAW x2,y2:DRAW [2789] 
xl,y2:DRAW xl,y 1 

230 PEN 3:L0CATE 5,2:PRINT "AndromedaSoft" [3426] 


Lisling Animator 


240 

LOCATE 8,4:PRINT "presents" 

[ 1472 ] 

250 

PEN 1:L0CATE 5,6:PRINT "Animator vl.O" 

[2113] 

260 

PEN 2:LOCATE 7,8:PRINT "written by" 

[2207] 

270 

LOCATE 2,10:PRINT "Oliver Heggelbacher 

[3171] 

280 

WINDOW SWAP 0,1 

[1031] 

290 

w1 —w1 MOD 90:GOSUB 510 

[ 1484 ] 

300 

wi=(wl MOD 90)+270:GOSUB 510 

[1402] 

310 

GOSUB 740 

[ 929 ] 

320 

wi = (w1 MOD 90) + 90:G0SU8 510 

[ 1507 ] 

330 

w1 = (w1 MOD 90 ) +180:GOSUB 510 

[ 353] 

340 

{NEXTPIC 

[ 470] 

350 

NEXT wl 

[481 ] 

360 

!ENDANIM 

[ 1078 ] 

370 

END 

[110] 

380 


[117] 

390 

ORIGIN 320,0 

[ 227 ] 

400 

h=160 

[ 466 ] 

410 

FOR x=-300 TO 320 STEP 40:MOVE x*2,0:0 

[4162] 

RAW 

x,h,2:DRAW x,400:NEXT x 


420 

FOR y=160 TO 400 STEP 32:MOVE -320,y:D 

[3663] 

RAW 

320,y:NEXT y 


430 

y=h:fa!=4 

[890] 

440 

ORIGIN 0,0 

[ 298] 

450 

MOVE 0,y:DRAW 639,y,2 

[1530] 

460 

y = y-fa! :fa!=fa ! * 1.2 

[1688] 

470 

IF y > 0 THEN 450 

[970 ] 

480 

RETURN 

[ 555 ] 

490 


[117] 

500 

"Amiga-Ball" zeichnen 

[1168] 

510 

corg=2+((wi MOD 90)/45):IF INT(corg)>3 

[3709 ] 

THEN corg=corg-l 


520 

si!=SIN((wi*1.5) MOD 180):CO!=COS(w1) 

[1836] 

530 

xl=320+SIN(wi)*200:yl=76+co!*56 

[2314] 

540 

g r = 32-co!* 10 

[ 865] 

550 

y2 = y1 + si !*110+gr 

[ 614] 

560 

ORIGIN xl+6+sl!*6*(4-co!),yl+6+s1!*10« 

[ 1216] 

( 4-co ! ) 


570 

r=gr-si!»10:yr=r/4:GOSUB 690 

( 1676 ] 

580 

ORIGIN x1,y2 

[ 149] 

590 

ax=0:ay=gr 

[ 529 ] 

600 

col=corg 

[531] 

610 

FOR t=0 TO 60 

[ 762] 

620 

f2=INT(col):PLOT ax,ay,f2:F0R i=0 TO 5 

[4524] 

:x=(abx(t,1)»gr)/1000:y=(aby(1)*gr)/1000 


630 

DRAW x,y,f2:f2=f2+1:IF f2>3 THEN f2=2 

[1542] 

640 

NEXT i:col=COl+0.09:IF INT(col)>3 THEN 

[2455] 

co 1 

=col -2 


650 

NEXT t 

[ 360] 

660 

RETURN 

[ 555 ] 

670 

' 

[117] 

680 

' Schatten zeichnen 

[1353] 

690 

vh= r/yr 

[599 ] 

700 

vr=r*r:FOR y=0 TO r/1.414 STEP 2:x=SQR 

[9385] 

( vr- 

•y*y):MOVE -x ,-y/vh:DRAW x,-y/vh,f:MOVE 


-x . 

y/vh:DRAW x,y/vh:MOVE -y,-x/vh:ORAW y, 


-x/vh:MOVE -y,x/vh:DRAW y,x/vh:NEXT y 


710 

RETURN 

[ 555 ] 

720 

' 

[117] 

730 

‘Andromedaso ft-Logo 

[ 1260] 

740 

ORIGIN 250,102 

[ 289 ] 

750 

FOR c=0 TO 2:RESTORE 870 

[ 1554 ] 

760 

READ mo:IF mo=255 THEN 850 

[ 1268 ] 

770 

READ x,y 

[469 ] 

780 

x = x * 28:y = y* 32 

[1510] 

790 

IF mo = 0 THEN x 1 = x:y1 = y:GOTO 760 

[ 942] 

800 

FOR 1a=0 TO 5 STEP 2:FOR br=0 TO 11 ST 

(2418] 

EP ; 

> 

810 

y2=y+la:y3=yl+la:x2=x+br:x3=xl+br 

[2113] 

820 

IF c=0 THEN MOVE x2+y2/3,y2/4:DRAW x3+ 

[3714] 

y3/3,y3/4,0:GOTO 840 

830 

MOVE x2-C*2+2,y2-c*2+2:DRAW x3-c*2+2,y 

[2243] 

3-c* 2 + 2,c+1 


840 

NEXT br,1a:xl=x:yl=y:GOTO 760 

[ 954 ] 

850 

NEXT C:RETURN 

[408] 

860 


[117] 

870 

DATA 0,0,0,1,0,2, 1,2,2, 1,2,0,0,0,1,1,2 

[2194] 

880 

DATA 0,5,2, 1,3,2, 1,3,1,1,5,1,1,5,0,1,3 

[1747] 

890 

DATA 255 

[251 ] 

Lisling Animator 
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Record Specification 


Abb. I: Die Datenbank 
von MINI OFFICE: In 
der Rubrik RECORD 
SPECIFICATION wer¬ 
den den einzelnen Da¬ 
tenelementen Sucltkri - 
terien wie Datum, al¬ 
phabetische Reihenfol¬ 
ge, etc. bei gegeben. 


83 222 0 

Use to select field, then COPV/ENTER 



Mini Office II 

Mini- Datenbank für den CPC 

Hersteller: Database Software 
Vertrieb: Weeske Computer- 
Elektronik 

System: CPC 464/664/6128 
unter AMSDOS 
Datenträger: 3“- Diskette 
Preis: DM 98. — 

Deutsches Handbuch kann bei der Fir¬ 
ma Weeske für DM 29,— bezogen 
werden. 

Programme für den CPC 

Viele Besitzer eines CPC 464/664 oder 
6128 möchten gerne, ohne sich vorher 
groß mit der Programmierung dieses 
tastaturbesitzenden Freundes beschäf¬ 
tigen zu müssen, sofort mit dem pro¬ 
fessionellen Einsatz des Rechners be¬ 
ginnen. Nun gibt es mehrere Möglich¬ 
keiten: 

1. Man besorgt sich auf dem Softwa¬ 
remarkt die Programme, die man 
am meisten für seinen Rechner be¬ 
nötigt und merkt dann meistens 
sehr schnell, daß das eine oder an¬ 
dere wichtige Programm vergessen 
wurde. 

2. Man kauft sich Zeitschriften, die 
Listings beinhalten, nimmt sich 
eine kräftige Portion Zeit und tippt 
diese Listings ab, wobei man 
manchmal mit der Qualität der Pro¬ 
gramme nicht zufrieden ist und 
(oder) außerdem sehr lange wartet, 
bis das nächste benötigte Pro¬ 
gramm erscheint oder... (siehe 
Punkt 1.) 

3. ...(siehe Punkt 1), aber mit dem 
Augenmerk auf Besonderheiten des 
Softwaremarktes. Und hier kom¬ 
men wir zum springenden Punkt. 

Einer für alle... oder die Menge 
niacht’s! 

Das MINI OFFICE II Programm- Pa¬ 
ket, von Database Software hergestellt 
und der Firma Weeske aus Backnang 
vertrieben, bietet dem 'ernsthaften' 
CPC-Besitzer die Möglichkeit, die 
meistgebrauchten Programme auf ei¬ 


nen Schlag oder besser einer Diskette 
zu kaufen. MINI OFFICE II ist dabei 
der Nachfolger des seit 1986 bekannten 
MINI OFFICE, also eigentlich ein 
Evergreen. 

Das Programmpaket setzt sich aus ins¬ 
gesamt sechs Programmteilen zu¬ 
sammen: 

— Text Verarbeitung 

— Datenbank 

— Spreadsheet (multiplanähnliche 
Kalkulation) 

— Grafische Darstellung von Werten 

— Datenfernübertragung 

— Etikettendruckprogramm 

Jedes dieser Programme bildet einen 
eigenständigen Teil innerhalb des 
MINl-OFFICE-Systems, und diese 
Teile des Ganzen wollen wir auszugs¬ 
weise vorstellen. 

Die T extverarbeitung 

teilt sich in 11 verschiedene Menü¬ 
punkte auf. Dieses sind: 

EDITTEXT - Die Texteingabe: Hier 
wird der Text eingegeben. Über ver¬ 
schiedene Kontroll-Codes. die mit den 
Tastenkombinationen SHIFT + Taste 
oder CTRL + Taste oder über die 
Funktionstasten zu erreichen sind, 
werden die einzelnen Optionen aufge¬ 
rufen. Eine Hilfsseite steht dem Benut¬ 
zerebenfalls zur Verfügung, in der alle 
Aufrufe aufgelistet sind. 

PRINT TEXT - Die Druckerausga¬ 
be: Sie teilt sich noch einmal in ein Un¬ 
termenü auf. in dem unter anderem ge¬ 
naue Einstellungen für den Ausdruck 
zu machen sind. 

CLEAR TEXT — Löschen des 
Textes. 

SEARCH & REPLACE - Suche und 
Ersetze: Falls Ihnen mal ein Wort spa¬ 
nisch vorkommt: kein Problem, mit 
dieser Funktion können Sie es im Text 


aufspüren und durch ein anderes er¬ 
setzen. 

CATALOGUE — Inhalt der Diskette. 
CHARAKTER MODE - Bild¬ 
schirmmodus: Er ist einstellbar zwi¬ 
schen 20, 40 und 80 Zeichen. 
MERGE TEXT — Einlesen und An¬ 
binden eines Textes an ein bestehendes 
Textfile. 

SAVE TEXT — Text speichern. 
LOAD TEXT - Text laden. 
SELECT MOUSE - Mini Office 
wird auf den Betrieb mit Mouse vorbe¬ 
reitet. da alle Menüpunkte normal mit 
den Cursortasten und ENTER/COPY 
angewählt werden, ist dies eine Er¬ 
leichterung für alle Besitzer einer 
CPC- Mouse. 

Die Datenbank 

Auch Sie setzt sich aus verschiedenen 
Menüoptionen zusammen: 

EDIT DATA - zeigt die gesammelten 
Daten auf dem Bildschirm. 

LOAD, SAVE, PRINT - Hier wer¬ 
den alle Peripherieoperationen erledigt 
wie Laden, Speichern, Anbinden und 
Drucken. 

SEARCH ANDMARK DATA - Die 
gespeicherten Daten können nach 
Suchbegriffen durchforstet und mar¬ 
kiert werden. 

SORT DATA — Diese Sortierroutine 
übernimmt eine Sortierung nach ver¬ 
schiedenen Optionen wie Datum, al¬ 
phabetisch. usw. 

CALCULATE — Berechnet die An¬ 
zahl der belegten Records nach ver¬ 
schiedenen Kriterien. 

EDIT STRUCTURE - Jeder Daten¬ 
satz kann nach verschiedenen Gesichts¬ 
punkten eingegeben werden, nach de¬ 
nen sich die Sortierroutine richtet. 
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Abb.2: Ein SPREAD- 
SHEET (Arbeitsblatt/ 
von MINI-OFFICE - 
Kalkulation wird ein¬ 
fach, und die Werte 
können übernommen 
werden... 


Cel l-fi5 Ce “ 08 " 8 Manual 
Contents:4444.00 

Number 

f«. 

12222.00 

F . G 

6S.00 

655.00 

4444.00 

23232.00 

4546.00 

65.00 

444.00 

344.00 

-566.00 

5466.00 

4.00 

5.00 

56.00 

-45.00 

44.00 

54 .00 

565.00 

6V7.00 

■L-EEEHHJ 

S4545.00 

6S5.00 

67 .00 

444.00 



0.00 

1.00 


Zugehörige Menüpunkte wie Löschen, 
Marker setzen und löschen und die 
Mausfunktion sind ebenfalls an¬ 
wählbar. 

Das Spreadsheet 

Um Kalkulationen auf einem Compu¬ 
ter ausführen zu können, benötigt man 
ein vorbereitetes Arbeitsblatt, das 
Spreadsheet. Hier die Funktionen: 

EDIT SPREADSHEET - Das durch 
die Option NEW SPREADSHEET er¬ 
stellte Arbeitsblatt ist zur Bearbeitung 
auf dem Monitor zu sehen. 

LOAD bzw. SAVE SPREADSHEET 
— Der Inhalt des jeweils aktuellen Ar¬ 
beitsblattes kann gespeichert und wie¬ 
der geladen werden. 

SAVE GRAPHICS DATA - Der In¬ 
halt des aktuellen Arbeitsblattes wird 
als File abgespeichert und kann im 
Grafikteil dargestellt werden. 

LIST FORMULAE - Die Elemente 
eines Arbeitsplanes können auf Bild¬ 
schirm oder Drucker ausgegeben 
w'erden. 

NEW SPEADSHEET - Hier wird 
ein neues Arbeitsblatt erstellt. 

ALTER SCREEN DISPLAY - Die 

Werte für das Bildschirmarbeitsblatt 
können hier verändert werden. 

Der Rest des Menüs bezieht sich wie¬ 
der auf die Maus, auf das Hauptmenü 
und den Disketteninhalt. 


als Balkengrafik (drei verschiedene 
Arten), als Liniengrafik (ebenfalls drei 
verschiedene Darstellungsarten) oder 
als Kreis- (Torten-) Grafik (ebenfalls 
drei verschiedene Darstellungsarten, 
darunter Selbstwahl der Füllmuster) 
auf Bildschirm oder Drucker ausgege¬ 
ben werden. Die eingegebenen Daten 
können abgespeichert und w ieder gela¬ 
den werden. 

Die Druckerroutine ist auf EPSON- 
Drucker geeicht, andere Modi lassen 
sich einstellen. Die Grafiken werden 
sauber auf dem Bildschirm gezeichnet 
und lassen sich mit Kommentaren ver¬ 
sehen. 


koppler oder Modem lassen sich Daten 
durch das Telefonnetz übertragen. 

Das Programm ist auf die Original- 
Schnittstelle von AMSTRAD zuge¬ 
schnitten. andere Schnittstellen dürften 
jedoch auch angesprochen werden. 

Das MikroLink-Terminal-Programm 
läßt sich auf die unterschiedlichen Bau¬ 
draten einstellen und einfach bedienen. 

Der Etikettendrucker 

Hier lassen sich verschiedene Etiketten 
hersteilen, mit Text versehen, spei¬ 
chern, laden und ausdrucken. Das For¬ 
mat läßt sich weiträumig einstellen, so 
daß jedes gewünschte Etikett ausge¬ 
druckt werden kann. 


Der Grafikteil 

Er dient dazu, eingebene oder vom 
Spreadsheet übernommene Werte auf 
dem Bildschirm oder Drucker auszuge¬ 
ben, um einen besseren Überblick über 
alles zu bekommen. Die Werte können 


Datenfernübertragung 

Auch die DFÜ ist ebenfalls ein wuchti¬ 
ges Anwendungsgebiet. Mit dem Pro¬ 
grammteil COMMUNICATIONS und 
einer angeschlossenen RS-232-C- 
Schnittstelle sowie einem Akustik¬ 



Abb.3: ...vom Grafik¬ 
programm. welches 
Business- Grafiken als 
Balken, Linien oder 
wie im Bild Kreise ab¬ 
gibt. 


Grell« A«MU* Preis* 

'rau idllcnke<t "leritjior» gejervr itlsUng 



Fazit 


MINI OFFICE II hat noch nichts von 
seinem Glanz verloren, für einen T’• o < 
den so manches andere Programm al¬ 
leine kostet, bekommt der CPC-Besit- 
zer eine Menge geboten. Leider ist 
MINI OFFICE II nur in der englischen 
Originalausgabe zu haben, alle Menü¬ 
teile sind deshalb auch in Englisch be¬ 
schriftet. Das deutsche Handbuch, 
welches bei der Firma Weeske zu be¬ 
ziehen ist. hilft einem jedoch darüber 
hinweg, da es ziemlich umfangreich 
ist. Wer seinen CPC also 'ernsthaft' 
benutzen will, sollte sich MINI OFFI¬ 
CE II merken. 

(jb) 
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The History of Making 
The First Three 
Years 

Hersteller: U.S. Gold 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. DM 60.— 

CPC 464 & CPC 664 Dfl CPC 6128 XI 

Alles Historie? 

Mit "THE HISTORY OF MAKING" 
liegt eine Compilation vor, wie sie bis 
jetzt noch nie da war. Nicht das hier 
einfach ein paar alte Programme neu 
vermarktet werden; nein, es wird die 
Entstehungsgeschichte eines Software- 
Hauses anhand seiner größten Erfolge 
dokumentiert. Leider sind einige der 
15 enthaltenen Spiele auf dem Index, 
so daß wir leider nicht alle Titel nennen 
können: Leader Board. Impossible 
Mission. Super Cycle. Gauntlet. Infll- 
trator. Kung Fu Masters, Spy Hunter, 
Road Runner, Bruce Lee, Goonies und 
World Games. Trotz Index befinden 
sich auf diesem Sammler immer noch 
einige hochinteressante Programme, 
von denen wir Ihnen einige vorstellen 
möchten. 

Impossible Mission 

Einer der Klassiker im Plattform- 
(Jump& Run)-Spielbereich überhaupt. 
Elvin Atombender hat ein paar Atom¬ 
bomben in seinem Hauptquartier ver¬ 
steckt und scharfgemacht. Die 
Menschheit ist in Gefahr. Es ist an Ih¬ 
nen, die Erde zu retten. Dringen Sie in 
das HQ von Elvin ein und entschärfen 
Sie die Bomben. Abergeben Sie auf die 
vielen Roboter acht, welche überall Pa¬ 
trouille laufen. Diese haben nur einen 
Befehl einprogrammiert bekommen, 
und der lautet: Töte alle Eindringlinge. 
Und ein solcher sind Sie. Spielerisch 
hat dieses Spiel einiges zu bieten. Es ist 
sehr komplex, da man nicht nur herum¬ 


läuft und schießt, sondern einige Rätsel 
lösen muß. 

Road Runner 

Road Runner ist eine Comic-Figur und 
wurde von Atari als Automat in die 
Spielhallen gebracht. Ihre Aufgabe be¬ 
steht darin, als Road Runner vor Karl 
dem Kojoten wegzulaufen. Ihnen stel¬ 
len sich einige Hindernisse in den Weg. 
Natürlich dürfen Sie nicht vergessen, 
unterwegs Nahrung einzusammeln. 
Sollten Sie es fünfmal versäumen, 
Nahrung aufzupicken, so kostet Sie das 
ein Bildschirmleben. Bonuspunkte gibt 
es, wenn Sie es schaffen, Karl in eine 
Falle zu locken. Die Grafik ist gut ge¬ 
zeichnet und das Scrolling sauber und 
ruckfrei. 

Bruce Lee 

Ein großer Name wurde hier für ein 
Karatespiel genommen. Ein Name, der 
im Bereich der Kung-Fu-Filme für 
Qualität steht. Anders als man erwar¬ 
ten könnte, handelt es sich bei Bruce 
Lee nicht um ein einfaches Karatespiel, 
sondern man muß sich prügelnderwei- 
se durch verschiedene Level kämpfen. 
Das Spiel verfügt nicht über Scrolling, 
sondern zwischen den Räumen wird im 
Fl ippover-Verfahren umgeschaltet. 
Auf der Suche nach dem Zauberer, 
dessen Vernichtung Ziel des Spiels ist, 
müssen viel Gegner beseitigt und auch 
einige Rätsel gelöst werden. 

Spy Hunter 

ist die Umsetzung eines großen Auto- 
maten-Hits. Als 'James Bond-Verschnitt' 
jagen Sie in Ihrem Auto feindlichen 
Highway-Agenten nach. Schießen Sie 
auf alles, was sich bewegt. Ihr Auto ist 
ein High-Tech-Fahrzeug, welches jede 
Belastung aushält. Je besser Sie sich 
durchkämpfen, umso besser wird die 
Ausrüstung Ihres Wagens. Irgendwann 
kommt cs dann zum großen Duell zwi¬ 




schen Ihnen und dem Switch Blade, 
welcher der Chef der feindlichen 
Agenten ist. Die Grafik des Pro¬ 
gramms ist recht flott gemacht. Anson¬ 
sten kann man das Programm in die 
Reihe der vertikal scrollenden 
Shoot'em Ups einordnen. die neben ein 
paar Extrawaffen und netter Grafik 
nicht viel Extras zu bieten haben, aber 
doch immer wieder Spaß machen. 


Seolid&c 3t« ortu-igt;- Ds*», G'j'ik 

''O.j iclichkflil mortatior 



Fazit 

Aus Platzgründen konnten wir leider 
nur eine geringe Auswahl der in dieser 
Compilation enthaltenen Spiele brin¬ 
gen. Alles in allem ist die Mehrzahl der 
gelieferten Programme empfehlens¬ 
wert. Allein das Styling der Package 
würde den Kauf rechtfertigen, aber 
durch die Spiele, die sie enthält, ist 
"THE HISTORY OF MAKING" eine 
Compilation, die zu jenen absoluten 
Leckerbissen gehört, welchen sich kei¬ 
ner entgehen lassen sollte! 


(rg) 
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Barbarian 

Hersteller: Melbourne House 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. DM 40,— 

CPC 464 K CPC 664 Kl CPC 6128 K 

Hegor, Thorons Sohn 

In einem kleinen Dorf am Rande des 
großen Waldes wuchs einst ein junger 
Krieger heran. Von seinem Vater Tho- 
ron in allen Kriegskünsten unterrichtet, 
errang er schon bald den Ruf eines 
blendenden Kriegers. Eines Tages, als 
der junge Hegor nach Hause zurück¬ 
kehrte, sah er schon von weitem einen 
Aufruhr. Ein gewaltiger Drache hatte 
das Dorf überfallen, überall rannten 
schreiend die Menschen umher, und 
plötzlich sah Hegor einen Mann, der 
mit einem Schwert versuchte, den Dra¬ 
chen zurückzudrängen: sein Vater! 
Thoron hatte den Drachen schon vom 
Dorf zurückgedrängt, als dieser plötz¬ 
lich mit einer heftigen Bewegung sei¬ 
nes Schwanzes Thoron das Genick 
brach. Sodann verspeiste der Drache 
die sterblichen Überreste des Vaters 
und entschwand. So schwor Hegor, 
den Tod seines Vaters zu rächen und 
den bösen Drachen zu töten. Nachdem 
sein Vater so leicht von dem Drachen 
besiegt worden war, beschloß Hegor, 


daß er noch ein wenig Erfahrung zu 
sammeln habe, bis er dem Drachen ge¬ 
wachsen sei. So reiste Hegor von Dorf 
zu Dorf und erschlug die lokalen Land¬ 
plagen. Sein Ruhm als “Drachentöter“ 
wuchs, und seine Taten waren schon 
bald in aller Munde. Schließlich traf er 
in dem kleinen Dorf Egdon einen ande¬ 
ren Drachentötcr namens Commat, der 
Kostproben seiner Abenteuer zum Be¬ 
sten gab. Fasziniert von den Geschich¬ 
ten, die Hegor an die glücklichen Tage 
seiner Jugend erinnerten, erfuhr er ei¬ 
nes Abends von einer unterirdischen 
Welt, die von dem bösen Magier Nee- 
ron beherrscht wurde. Da Commat sei¬ 
ne Geschichten oft in der Taverne er¬ 
zählte und Hegor die meiste Zeit zu¬ 
hörte, erwarb er schon bald auch den 
Ruf eines emsigen Biertrinkers und 
Verehrers des schwachen Geschlechts. 
Nachdem Hegor gerade wieder einen 
Drachen erlegt hatte, trafen Nachrich¬ 
ten in dem kleinen Dorf ein. Werwölfe 
und affenähnliche Monster terrorisier¬ 
ten weite Landstriche und wurden von 
einer unheimlichen Macht kontrolliert. 
Der König beschloß, daß derjenige der 
neue König des Landes werde, der die¬ 
sem Unheil Einhalt gebieten könne. 
Hegor machte sich auf, das Böse zu fin¬ 
den und zu besiegen. 

Auf der Reise kam er auch in sein Hei¬ 
matdorf. Dort befanden sich aber nur 
alte Männer, die restlichen Bewohner 
waren von Necron verschleppt oder 
aus Furcht geflohen. Einer der Greise 
erzählte Hegor eine Geschichte, die 
seinen Vater Thoron betraf. Wie sich 
herausstellte, war Necron der Zwil¬ 
lingsbruder seines Vaters. Beide waren 
in Ihrer Jugend öfter mit einem Drui¬ 
den zusammengetroffen, der den bei¬ 
den magische Fähigkeiten verliehen 
hatte. So ergab es sich, daß Hegor auf¬ 



Seiert Sie ein Barbar! 
Zeigen Sie Ihren Fein¬ 
den den Weg in die 
Ewigen Jagdgründe. 


brach, um seinen dem Bösen verfalle¬ 
nen Onkel zur Rechenschaft zu ziehen. 

Das unterirdische Königreich 

Hegors Aufgabe besteht nun darin, die 
Marschen zu durchqueren und Necron 
zu finden. Vorher muß er jedoch alle 
finsteren Gefolgsleute des Onkels be¬ 
siegen, um bis zu diesem vorzudrin¬ 
gen. Zahlreiche Monster und heim¬ 
tückische Fallen erschweren das Vor¬ 
ankommen zusätzlich. Jedoch ist He¬ 
gor nicht wehrlos. Sein Schwert ist sein 
ständiger Begleiter, Pfeil und Bogen 
kann er unterwegs finden. Allzu ein¬ 
fach ist die Aufgabe allerdings nicht, 
viele Fallen erkennt man erst, wenn 
man einige Leben ausgehaucht hat. 
Auch die Angriffstaktiken der Monster 
führen häufig zu Personalschwund, bis 
das System erkannt ist. Gesteuert wird 
der Held mit dem Joystick. Für Son¬ 
deraktionen wie Laufen, Springen. 
Kämpfen, Hinauf- und Hinunterklet¬ 
tern und Verteidigen steht am unteren 
Bildrand ein Menü zur Verfügung, das 
auf eine etwas eigenwillige Weise 
ebenfalls mit dem Joystick bedient 
wird. Ist man mit der Steuerung erst 
einmal vertraut, geht mit der nötigen 
Geschicklichkeit das Handling des Hel¬ 
den gut vonstatten. 

Sind Fallen einmal erkannt, tut man gut 
daran, diese mit einem kräftigen 
Sprung zu überwinden. Nichts ist är¬ 
gerlicher, als mehrmals in dieselbe 
Falle zu stolpern, deshalb sollte man 
sich auf jeden Fall eine Karte anferti¬ 
gen. Diese Mühe lohnt sich spätestens 
dann, wenn man einen Weg findet, 
Necron zu besiegen. In diesem Fall be¬ 
ginnt der Vulkan, in dem der böse On¬ 
kel sein Quartier aufgeschlagen hat, 
Feuer und Lava zu spucken. Der Held 
hat nur eine sehr begrenzte Zeit, um 
aus der unterirdischen Hölle zu ent¬ 
kommen und sein Königreich in Emp¬ 
fang zu nehmen. Maßgebend für die 
Zeit, die zum Rückzug bleibt, ist der 
Score. Dieser beginnt in dem Moment 
rückwärts zu laufen, indem Necron be¬ 
siegt ist. Ist der Score-Zähler bei Null 
angekommen und der Held noch nicht 
außerhalb des unterirdischen Königrei¬ 
ches, dann... 


SpifrlKMe Bodionmgs ftstai- Grafck Söjnd «re**/ 
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Resümee 

Mittels der ausführlichen Historie, die 
dieses Programm begleitet, gelingt es 
sehr leicht, sich für den Helden und sei¬ 
ne Aufgabe zu begeistern. Hat man erst 
Freundschaft mit der etwas eigenwilli¬ 
gen Steuerung geschlossen, gelingt es 
relativ gut, den Barbaren durch die 
zahlreichen Gefahren zu geleiten. 
Trotz allem ist natürlich ein gerüttelt 
Maß Geschick vonnöten, um bis zu 
Necron vorzudringen. Grafisch prä¬ 
sentiert sich Barbarian von einer 
zweckmäßigen Seite, was dem Spiel¬ 
spaß nicht unbedingt Abbruch tut. 
Freunde des Arcade-Adventures soll¬ 
ten sich Barbarian auf dem CPC einmal 
ansehen. . , 


Mazie 

Hersteller: Zeppelin Games 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: DM 9,— 

CPC 464 Xi CPC 664 X CPC 6128 X 

Immer dasselbe? 

Die Renaissance der Ballspiele im Stile 
von Arkanoid (Was hat der Program¬ 
mierer damit nur angerichtet??) zieht 
weite Kreise. Zwar gibt es für die 
CPCs bei weitem nicht so viele Adap¬ 
tionen des Themas, wie dies beim Ami- 
ga der Fall ist, aber erspart bleiben Sie 
uns nicht. 

Mit Mazie legt Zeppelin Games aus 
England eine eigenwillige und ob ihres 
günstigen Preises recht attraktive Ver¬ 
sion der bekannten Spielidee vor. Es 
gilt, mit einem Schläger einen Ball im¬ 
mer wieder gegen eine Mauer zu schla¬ 
gen. Die Steine der Mauer sind entwe¬ 
der unzerstörbar oder verschwinden 
nach einer Ballberührung. Die Blöcke, 
die durch Treffer aufgelöst wurden, 
hinterlassen Gegenstände unterschied¬ 
lichster Natur. Diese Extras sollten 
zum Teil eingesammelt werden; aller¬ 
dings ist daraufzu achten, was gesam¬ 
melt wird. Einige der Specials, wie 
zum Beispiel die Pistolenkugeln, ko¬ 
sten den Spieler einen Schläger. 

Paß auf, was Du triffst 

Einige der Blöcke sehen aus wie Gitter¬ 
fenster. Werden Sie getroffen, wird da¬ 
durch ein im Block gefangener Alien 


Neue Vielfalt! 

CPC Bücherkiste 


AUS DEM SYBEX-ANGEBOT 
Einführung in Wordstar 

Der Bestseller zum populärsten Textverarbeitungsprogramm 
wurde (ür die Besitzer des CPC überarbeitet und damit wichti- 

S e Hille und Nachschlagewerk bei der Arbeit mit Wordstar und 
lailMerge auf dem CPC. Neben der klaren Einführung in den 
effektiven Umgang mit Wordstar gibt es u.a. auch wertvolle Hin¬ 
weise für die Installation von Druckern und zu Systempatches. 
280 Seiten/40 Abb. Best.-Nr. 421 DM42,-* 


Arbeiten mit dBase II 

dBase II ist im PC-Bereich wohl eines der leistungsstarksten Da¬ 
tenbankprogramme. Benutzern eines Schneider CPC vermittelt 
ein echter Experte in diesem Buch alle Kenntnisse, die für den 
erfolgreichen Einsatz von dBase II wichtig sind. Z.B.: Installation 
von und Programmieren mit dBase II, Editieren von Dateien mit 
Wordstar, Tips und Tricks. Jeder Lernschritt wird durch praxis¬ 
gerechte Beispiele ergänzt. Und zwar so, daß dem Leser die Um¬ 
setzung dann wirklich problemlos möglich ist. Ein Buch, das in 
jeder Arbeitsphase weiterhilft 

272 Seiten/mit Abb. Best.-Nr. 422 DM48,-* 


Schneider CPC - Arbeiten mit dBASE II 

Benutzern eines CPC vermittelt ein echter Experte in diesem 
Buch alle Kenntnisse, die für den erfolgreichen Einsatz von 
dBASE II wichtig sind, z.B : Installation und Programmieren mit 
dBASE II, Editieren von Dateien mit Wordstar, Tips und Tricks 
Jeder Lernschritt wird durch praxisgerechte Beispiele ergänzt. 
Und zwar so, daß dem Leser die Umsetzung dann wirklich pro¬ 
blemlos möglich ist. Ein Buch, das in jeder Arbeitsphase weiter¬ 
hilft. 

227 Seiten/mit Abb. Best-Nr.: 440 DM48,-* 


Schneider CPC - Arbeiten mit Turbo Pascal 

Der Bestseller "Das Turbo Pascal Buch“ wurde speziell für Be¬ 
sitzer eines CPC überarbeitet. So ermöglicht es den optimalen 
Einsatz der leistungsfähigen Programmiersprache - auf die 
CPC-Arbeits- und Systemumgebung zugeschnitten - und 
durch zusätzliche Informationen ergänzt. Zahlreiche Beispiele 
veranschaulichen die vorgestellen Programmierkonzepte, Übun¬ 
gen zu jedem Kapitel machen dieses leicht verständlich ge¬ 
schriebene Buch für Einsteiger zur unentbehrlichen Arbeitshilfe 
296 Seiten/mit Abb. Best.-Nr.: 441 DM48,-* 


Das Schneider CPC Grafikbuch 

Die vielfältigen Grafikmöglehkeiten Ihres Schneider CPC (464, 
664 und 6128). Von einer allgemeinen Einführung über ergän¬ 
zende Grafikbefehle, Erstellung von Grafiken mit dem Joystick, 
Darstellung zwei- und dreidimensionaler Diagrammformen, 
künstlerische Grafiken, Zusammenspiel zwischen Grafik und 
Datenträger bis hin zur Hardcopy. 

328 Seitert/zahlr. Abb. Best.-Nr.: 442 DM48,-* 


Schneider CPC Erfolg mit Multiplan 

Ein didaktisch hervorragendes Lehrbuch und Nachschlagewerk 
für CPC-Besitzer, die das Tabellenkalkulationsprogramm anwen¬ 
den wollen. Das Buch ist die überarbeitete, auf den CPC zuge¬ 
schnittene Version des Bestsellers "Erfolg mit Multiplan" und 
führt Schritt für Schritt in das Programm ein. An konkreten 
Beispielen wird erklärt welchen Nutzen CPC-Besitzer mit Mul¬ 
tiplan in der Praxis haben. 

200 Seiten/ca. 45 Abb. Best.-Nr.: 445 DM48,-* 


Schneider CPC Assembler-Kurs 
(Buch mit Diskette) 

Das Buch führt Sie schrittweise in die Programmierung des Z80 
ein und vermittelt Ihnen Befehlssatz des Prozessors wie Adres¬ 
sierungsarten. Sie lernen anhand vieler Beispiele, selbst nütz¬ 
liche Routinen zu entwickeln und vorhandene Hilfsroutinen für 
Ihre Zwecke einzusetzten; dazu werden Ihnen Programme zur 
Erweiterung des Betriebssystems mit grafischen Befehlen vor¬ 
gestern. 

Die begleitende Diskette enthält einen Z80-Assembler. mit dem 
Sie selbst Programme entwickeln und testen können 
Buch und Kassette Best.-Nr.: 446 DM59,-* 

Buch und Diskette Best.-Nr.: 447 DM69,-* 


AUS DEM DATA-BECKER-ANGEBOT 
Das Floppybuch zum CPC 

Was man alles aus der DDI-1 des CPC 464, CPC 664 und CPC 
6128 holen kann, zeigt dieses Buch auf eindrucksvolle Weise. 
Neben den nötigen Erklärungen und einem ausführlichen DOS- 
Listing gibt es zahlreiche Utilities: eine komfortable Dateiverwal¬ 
tung, einen Disk-Manager. Selbst CP/M-Grundlagen und die re¬ 
lative Dateiverwaltung werden erklärt. So findet wirklich jeder 
CPC-Besitzer in diesem Buch einen wertvollen Ratgeber. 

422 Seiten Best.-Nr. 412 DM 49,-* 


Das CP/M-Trainingsbuch zum CPC 

Beherrschen Sie CP/M. Dieses Buch hilft Ihnen dabei Von den 
ersten Schritten bis zum perfekten Umgang. Dabei werden na¬ 
türlich die Versionen 2.2 und 30 für Schneider CPC 464,664 und 
6128 berücksichtigt. Dieses CP/M-Trainingsbuch bietet ein we¬ 
nig mehr als andere: zum Beispiel Hilfsprogramme, mit denen 
Sie in der Lage sind, auch fremde Diskettenformate zu lesen 
oder Submit-Dateien zu erstellen. 

260 Seiten Best.-Nr. 413 DM 49,-* 


CPC Tips und Tricks Band 2 

Der zweite Band aus der Tips und Tricks-Reihe ist für alle CPC- 
Besitzer interessant, egal ob Sie nun einen 464, 664 oder 6128 
besitzen. Schreiben Sie eigene Befehlserweiterungen oder ei¬ 
nen Maskengenerator. Lernen Sie wichtige Systemroutinen ken 
nen. Erfahren Sie, wie man Programme beschleunigt und viele 
andere Dinge, die im täglichen Umgang mit dem Rechner fast 
unverzichtbar sind Mit diesem Buch holt man noch mehr aus 
seinem CPC. 

250 Seiten Best.-Nr. 414 DM39,-* 


Das Maschinensprachebuch zum CPC 

Wer seinen CPC wirklich beherrschen will, der muß sich mit dem 
Thema Maschinensprache beschäftigen. Von den Grundlagen 
bis zur Programmierung des Z80-Prozessors. Das Maschinen¬ 
sprachebuch zum CPC hilft Ihnen von Anfang an Mit einer ge¬ 
nauen Beschreibung aller Befehle und ausführlichen Beispielen, 
mit Hinweisen zur Benutzung der Systemroutinen und einem As¬ 
sembler/Disassembler sowie einem Monitor zum Abtippen. So 
macht der Einstieg Spaß. 

330 Seiten Best.-Nr. 415 DM39,-* 

Das große Grafikbuch zum CPC 

Dieses Buch ist für alle, die bisher dachten, spektakuläre Gra¬ 
fik auf dem CPC sei nicht möglich Zwei Top-Autoren beweisen 
das Gegenteil: Mit CPC-Chart - dem Diagrammgenerator, mit De- 
stroyed - dem Arcade-Game, mit CPCs World - dem 3-D- 
Animationsprogramm, mit Vektorgrafik, mit Sprites... Ja Sie ha¬ 
ben richtig gelesen: Wir reden von den Grafikmöglichkeiten Ih¬ 
res CPC - inklusive 6128 und Joyce. 

589 Seiten Best.-Nr. 416 DM49,-* 


Programmwissen pur im Westentaschenformat 
Führer zum CPC Best.-Nr. 451 dm 19 , 80 * 
Führer zum CP/M Best -Nr. 452 dm 19 , 80 * 


Das große Buch der Public-Domain-Software 
Freie CP/M-Programme für Commo- 
dore 128, Schneider CPC und Joyce 

Public-Domain-Software setzt sich inzwischen auch in Europa 
durch. Diese Programme tragen kein Urheberrecht und dürfen 
deshalb mit Hobbyfreunden getauscht werden. Doch gerade die 
großen Sammlungen für das Betriebsystem CP/M enthalten ne¬ 
ben wahren „Juwelen" auch viel unbrauchbares Material. 

Der bekannte Fachjournalist Martin Kotulla hat es sich zur Auf¬ 
gabe gemacht, die Idee der Public-Domain-Software auch in 
Deutschland populär zu machen. Aus den großen amerikani¬ 
schen Sammlungen hat erdie interessantesten Programme her- 
ausgesucht, übersetzt, an Commodore- und Schneider- 
Computer angepaßt und detailliert in diesem Buch dokumentiert. 
Mit einem Wertcoupon aus dem Buch erhalten Sie die Program¬ 
me beim Autor zu einem besonders günstigen Preis 
229 Seiten Best -Nr. 410 DM 34,80* 


Das BASIC-Buch zum 6128 

BASIC macht Spaß. Man muß es nur richtig erklärt bekommen. 
Und genau das tut das große BASIC-Buch zum CPC 6128 In die¬ 
sem Buch steckt mehr als Einsteigerwissen: Variablen, Zahlen¬ 
systeme, Bits und Bytes, Tokens, Stringbearbeitung, Sortierung, 
Laufschrift, selbsidefinierte Zeichen, Windows. Fehlerbehand¬ 
lung, Kopierschutz. Grafiken, Soundprogrammierung, relative 
Dateien .... Das verstehen wir unter Vielfalt 
276 Seiten Best.-Nr. 461 DM39,-* 


464 Peeks & Pokes 

WerPEEKS und POKES zum CPC 464 kennen und anwenden 
will, der findet hier umfassende Information! Sie reicht vom 
Adreßbereich des Prozessors über Betriebssystem und Interpre¬ 
ter bis hin zur Einführung indie Maschinensprache. Dazu Pro¬ 
grammierhilfen, Routinen sowie reichlich Material zu den The¬ 
men Grafikfunktionen, Massenspeicherung und Peripherie, 
Tricks und Formeln in BASIC und RAM-Pages' 

180 Seiten Best.-Nr: 463 DM29,-* 


CPC Hardwareerweiterungen 

Speziell für den Hobbyelektroniker, der mehr aus seinem CPC 
machen möchte! Von nützlichen Tips zur Platinenherstellung 
über Adreßdecodierung, Adapterkarten und Interfaces bis zur 
EPROM-Programmierboard und -Programmiernetzteil oder Mo¬ 
torsteuerung für Gleich- und Schrittschaltmotoren werden mach¬ 
bare Erweiterungen ausführlich und praxisnah beschrieben 
445 Seiten Best.-Nr: 464 DM49,-* 


464 Intern 

Wirklich alle Geheimnisse des CPC 464 
lüftet dieses Standardwerk: Neben dem 
kommentierten BASIC-ROM-Listing enthält es Ka¬ 
pitel zu Speicheraufteilung, Prozessor, Besonder¬ 
heiten des Z80. Gate Array, Video-Controller und 
Video-Ram, Soundchip, Schnittstellen, 
stellen, Betriebssystem, Routinenutzung, Bücher 

Character-Generator u.v.m Für den Software 

fortgeschrittenen Basic-Program- Zeitschriften 

mierer, für den Assembler-Pro- p , , «rn 

grammiererein absolutes Muß! rOSttacn ZDU 

548 Seiten 3440 Eschwege 

Best.-Nr: 465 / / / 

DM69,-* X 


* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 
3,- DM bzw. für das Ausland 5.- DM Porto und Verpackung. Bitte benutzen Sie 
unsere Bestellkarte. _"_ 
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freigegeben, der sogleich versucht, auf 
Ihren Schläger zu hüpfen, um diesen so 
zu zerstören. Kleine, auf dem Spielfeld 
verteilte Münder fressen Ihren Ball 
auf, so daß er für einige Sekunden nicht 
mehr zu sehen ist. Ist ein Level gemei¬ 
stert, werden Spieler und Ball in die 
nächsthöhere Stufe versetzt. Dort geht 
es dann in bekannter Manier weiter. 


Sp.flid&e Bohnung». Doku Sound 

freufldllCMcftll meofotion Lo-5luno 



Fazit 

Mazie adaptiert ein sattsam bekanntes 
Spielprinzip. Es ist den Programmie¬ 
rern gelungen, Variationen einzubau¬ 
en, die das Spiel für jemanden, der Ar- 
kanoid & Co. noch nicht kennt, interes¬ 
sant machen. Bei der Programmierung 
scheint allerdings nicht gerade der 
höchste Qualitätsstandard zugrunde 
gelegen haben. Mitunter passiert es 
während des Spielens, daß sich die 
Grafik in buntes Pixelgewirr auflöst. 
Das Spiel stürzt dabei zwar nicht ab, 
doch das bunte Gelichter überdeckt das 
Spielfeld mitsamt Ball und macht ein 
weiteres Spielen unmöglich. Späte¬ 
stens beim folgenden Ball hat sich die 
Grafik wieder gefangen und präsentiert 
sich wie gewohnt. Alles in allem nicht 
gerade ein Highlight, aber trotz einiger 
Mängel ist Mazie doch noch ein passa¬ 
bles Spiel geworden. Wer allerdings 
Break Out und Arkanoid kennt und 
nicht mehr sehen kann (vielleicht weil 
man es schon sooooo oft gespielt hat), 
der sollte von Mazie Abstand nehmen. 

(fas) 


Im Grunde ein Arka- 
noid-Verschnitt, vari¬ 
iert Mazie das Spiel¬ 
konzept und bringt 
viele, teils verwirren¬ 
de Extras. 

ATV 

Hersteller: Code Masters 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Tastatur/Joystick 
Preis: DM 9,95 

CPC 464 XI CPC 664 1X1 CPC 6128 X 

Mit Hindernissen ans Ziel 

Wissen Sie, was ein ATV ist? Nein? Ist 
doch ganz einfach! ATV ist ein ALL 
TERRAIN VEHICLE. das heißt auf 
Deutsch soviel wie “Jeder-Boden- 
Fahrzcug“. Was macht man nun mit so 
einem ATV? Nichts anderes als Ren¬ 
nen fahren. Und zwar Geländerennen. 
Ihre Aufgabe besteht nun darin, mit 
diesem ATV, das aussicht wie ein Tri- 
ke, bestimmte Rennstrecken abzufah¬ 
ren. Dazu haben Sie limitierte Zeit und 
auch einen begrenzten Spritvorrat. Sie 
müssen also ständig darauf achten, in 
der Zeit zu bleiben und noch etwas 
Sprit im Tank zu behalten. Jede Strecke 
unterscheidet sich von der anderen in 
der Bodenbeschaffenheit. Klar ist 


auch, daß es sich nicht nur um ein ein¬ 
faches Rennen handelt, nein, es müs¬ 
sen auch Hindernisse überfahren wer¬ 
den. Hier ist nun die Schwierigkeit bei 
diesem Spiel. Denn hier müssen Sie 
aufpassen, und pixelgenaues Lenken 
wird verlangt. Sollten Sie zu langsam 
über ein Hindernis fahren oder gar zu 
schnell, fallen Sie von Ihrem ATV. 
Dann heißt es aufstehen und neu auf 
das ATV springen. Einige Hindernisse 
können nur mit viel Schwung über¬ 
sprungen werden. Das Problem dabei 
ist, daß man dieses erst kurz vor dem 
Hindernis merkt. Aber die Program¬ 
mierer haben mitgedacht: Es besteht 
die Option zu wenden, um Anlauf zu 
nehmen. 

Die Hindernisse sind verschiedener 
Art. So gibt es einfache Hügelchen, die 
man einfach mal eben überfahren kann. 
Aber das ist nicht alles. Ab und zu gibt 
es dann Schanzen mit anschließenden 
Zäunen. Wichtig ist es. darauf zu ach¬ 
ten, wo man abbremst, denn es kann 
teilweise geschehen, daß man nicht 
mehr starten kann, weil man stecken¬ 
geblieben ist. Sollte es Ihnen wirklich 
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passieren, daß Sie irgendwo festhän¬ 
gen, hilft nur Rütteln mit dem Joystick. 
Die Grafik präsentiert sich als horizon¬ 
tal scrollende Landschaft. Das Ganze 
erscheint einem sehr langsam. Der ein¬ 
zige Punkt, an dem man die Geschwin¬ 
digkeit mißt, ist die Speed-Anzeige am 
oberen Bildschirmrand. Die Animation 
der Spiel figur und des ATV ist recht 
nett ausgefallen, aber auf dem CPC gab 
es schon Besseres. Das Scrolling ist 
dem Programmierer flackerfrei gelun¬ 
gen; aber bei dem Tempo ist das auch 
kein technisches Meisterstück. Der 
Sound... ach ja, das ist schon ein leidi¬ 
ges Thema, und gerade bei diesem 
Spiel sollten wir dieses Thema schnell¬ 
stens vergessen. Also Schwamm 
drüber. 

Spelidee BM flnunjjs- Doku- Gra*lk Souoc 

Ifoundl'Chkeil neriol cn Leitung 



Über Stock und Stein 
müssen Sie mit Ihrem 
ATV fahren. Sollten 
Sie zu schnell sein, 
kann es leicht passie¬ 
ren, daß Sie aus dem 
Satte! fallen. 


Fazit 

Wenn ATV ein Vollpreis-Spiel wäre, 
gäbe es genug Gründe, es in der Luft zu 
zerreißen. 

Man könnte sich stundenlang darüber 
auslassen. Dies würde mit der Steue¬ 
rung anfangen und beim Sound aufhö¬ 
ren. Nun ist ATV aber kein Vollpreis-, 


sondern ein Budget-Game, und inso¬ 
fern sollte man etwas zurückstecken, 
vor allem bei der Beurteilung des 
Spiels. 

Drücken wir es so aus: Für DM 9.95 
bekommt man genug geboten, und 
demjenigen, der solche Rennspiele 
mag, kann ATV empfohlen werden. 

(rg) 


DISKETTENLAUFWERKE 

Qualitätslaufwerke von TEAC anschlußfertig für Schneider¬ 
computer, 2x80 Spuren, 1 MB unformatierte Kapazität, inkl. 
Kabel, Netzteil, Metallgehäuse 


CPC 830 KB 298.- 

Anschlußfertige Diskettenlaufwerke, 830 KB form. Kapazität 
unterCP/M, inkl. DiskPara und MsCopy, lieferbar in 3,5” (298.-) 
oder 5,25”-Ausführung (348.-). 


DiskPara 


Auf beliebigen Zweit lauf werken 
stehen bis zu 830 KB (form., CP/M) 
zur Verfügung. Verarbeitung von 
fast allen Fremdformaten. 

MsCopy (Aufpreis) 20.- 
Siehe T ests in Schneider Aktiv 2/87, dt 5/87, PC I nt. 6/87, CPC 
Magazin 4/87, Happy Comp. 4/87, 8. M&T Sonderheft. 


JOYCE 


Anschlußfertige Dis¬ 
kettenlaufwerke 3,5” 

2 x 80 Spuren, 1 MB, 
problemloser Anschluß 

5,25” mit eigenem Netzteil: 

MsCopy 49.-, Aufpreis 5,25" 40/80 T rack schaltbar für MsCopy 20.- 


PC 1512 und 1640 

Festplattenkit 30 MB 698.- 

inkl. Lüfter, deutscher Einbauanleitung und kompl. Einbausatz. 
Auch lieferbar als 40 MB Kit (42 MB, 40 ms, Autopark) 928.- 


3 j-jj Disketten-Laufwerk, 720 KB, 

,3 mit Einbaurahmen, anschlußfertig 


279.- 


Frank Strauß Elektronik 

Schmiedstr. 11 ■ 6750 Kaiserslautern ■ Tel. 06 31/6 70 96 und 6 70 97 

1 Jahr Garantie - 12.- DM Versandkosten • Lieferung durch Post oder UPS 
per Nachnahme • Bel Bestellung unbedingt genaue Konfiguration angeben. 


Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64.128, 256 oder 512K für alle CPCs 
Alle Versionen nachlräglich auf Maximal-Version aufrüstbar 

• optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2 2 (63K CP/M). Endlich lauten dBase. Mulllplan und Wordsiar 

• Patchprogramm für CP/M Plus. CPIM Plus auch lür CPC 464/664 

• resetteste RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 

• resetfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 

• 100% kompatibel zu dk'tronics RAM-Erweiterung und Silicon-Disc 

• AnschluB über den Expansionsport (kein Eingriff in den Rechner nötig) 

‘ geringe Abmessungen (mit Gehäuse: 160 x 83 x 20 mm) durchgeführter Erweiterungsbus 

RAM-Erweiterung mit Software für CP/M 2.2 und CP/M Plus auf 3"-Diskefte 
(wahlweise auch 3.5“- oder 5,25“-Dlskette) 

Preise: ohne RAMs.99,- DM 64 KByte.149,- DM 128 KByte.199,- DM 

256 KByte.299,- DM 512 KByte.449,- DM 

Aufpreis für zusätzliche EPROM-Sockel und Software im EPROM 49,- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3"-Zweillautwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3"-Confroller betrieben wird. Das X-DDOS- 
Betrlebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 

• Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 

• Es kann softwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden. 

’ Es werden Anpassungsprogramme für CP/M 2,2 und CP/M Plus mitgeliefert. 

’ Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig. 

1 Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine Restkapazität von 
208 KByte. 

■ Damit X-DDOS auch In beliebigen anderen EPROM-Karten lauffähig ist, wurde völlig auf 
einen Kopierschutz verzichiet. 

• Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauschf werden, 


X-DDOS-EPROM. Software & Beschreibung 99,- DM 

224-KByte EPROM-Karte, X-DDOS, Software 8. Beschreibung 239,- DM 

5.25" oder 3.5" X-Laufwerk, 224-KByte EPROM-Karte, X-DDOS. Softw. & Beschr. 589.- DM 

5.25" oder 3,5" X-Laufwerk, RAM-Erw. ohne RAMs, X-DDOS, Softw, & Beschr 589,- DM 


EPROM- Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2764, -128, -256 

• ROM-Nummern 0-15 frei wählbar 

• 7 Sockel 

■ Bei 27256 zwei ROM-Nummern pro Sockel 

• Durchgetührter Expansionsport 

• Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 


Fertiggerät für CPC 464/664 DM145,- Fertiggerät für CPC 6128 DM169,- 

Modul-Software auf 3"-Diskelte DM 95.- 

Zubehör für EPROM-Karten 

EPROM 2764 DM 7,50 ProtextEPROM DM124,- Mwam-EPROM DM124,- 

EPROM 27128 DM 8,50 Promerga PlusEPROM DM114- Utopia DM 94,- 

EPROM 27256 DM11,50 X-DDOS EPROM DM 99,- Alpha ROM DM 35,- 

EPR0M 27512 DM21,50 Time ROM (battenegepulleite Echtzeiluhi) + EPROM DM135,- 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 06202/714 17 
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I—Abenteuer 


GAMERS MESSAGE 

Herzlich wilkommen, lieber Leser. Es ist wieder einmal Gamers- 
Message-Zeit. Wir möchten Sie aufs neue auf den Streifzügen durch 
die Spielelandschaft begleiten und Ihnen mit Tips, Tricks und 
Lösungshilfen zur Seite stehen. Die Compilations, also Zusammen¬ 
stellungen von älteren Spielen, kommen in letzter Zeit ziemlich stark 
in Mode; deshalb haben wir unser Hauptaugenmerk in dieser Ausga¬ 
be auf Spiele gelegt, die auch älteren Ursprungs sind und die in 
Compilationform erhältlich sind. 


Um bei dem Spiel Dragon’s Lair Un¬ 
sterblichkeit zu erlangen, müssen Sie 
folgendes kleine Listing abtippen: 

10 REM Unsterblichkeit für Diskversion 

20 0PEN0UT “D u 

30 MEMORY &299 

40 LOAD “DL.BIN",&300 

50 POKE &25B1,&0 

60 CALL &2517 

bzw. 

10 REM Unsterblichkeit für Cassetten- 
version 

20 MEMORY &7FFF 

30 LOAD "DL U , &8000 

40 POKE &800A,&C9: POKE &800B.&C9 

50 CALL &8000 

60 POKE &25B7,&B7 

70 CALL &2517 


Poke zu Elite 

Matthias Schock aus Neuthard ließ uns 
einen Poke zu Elite zukommen, mit 
dem man das Manövrieren ungestört 
üben kann. Man ist unverletzbar, und 
auch das Eindocken dürfte nun selbst 
bei ungenauem Anflug kaum noch 
Schwierigkeiten bereiten. Dieser Poke 
ist mehr für den Anfänger gedacht, 
dem es somit möglich sein sollte, das 
Fliegen recht schnell zu erlernen. Er 
gilt für das Originalspiel auf Diskette. 
Also ran an den Computer und ein- 
hackcn! 

10 MEMORY &1A00 
20 LOAD “Commonxx" 

30 LOAD “Common2x u 
40 POKE &8D38,0: POKE &8D4l,0 
50 POKE &7AC5.0 
60 CALL &1C82 


Cheat-Mode zu Tempest 

D. Ferlemann hat mit dem Programm 
Discology den Cheat-Mode zu Tem¬ 
pest entdeckt. Leider funktioniert er 
nur bei der Disketten Version. Starten 


Sie das Programm wie gewohnt, indem 
Sie CPM booten. Befindet man sich im 
Titelbild, kann man den Code ein¬ 
geben: 

23/12/85-24/04/86 BY DAVID K 
PRIDMORE 

Nun sind folgende Tasten belegt: 

A = vorheriger Level 

Q = nächster Level 

Z = Zapper (auch mit Leertaste) 

X = Exil (weiter wählen) 

Starglider 

Einen weiteren Unsterblichkeitspoke 
schickte uns Eduard Pfarr. Er gilt für 
die Diskettenversion. So, nun aber zum 
Poke: 

Man braucht lediglich das nachfolgen¬ 
de Miniprogramm einzugeben und bei 
eingelegter Starglider-Diskette laufen¬ 
zulassen. 

10 MEMORY &1FFF 
20 LOAD u k32.bin“,&2000 
30 LOAD "klö.bin'S&COOO 
40 F0R 1=0 T0 2 
50 POKE &98C8+I.0 
60 NEXT I 
70 CALL &F700 

Übrigens bekommt man ab Level 3 
noch einige interessante Objekte zu 
Gesicht, die dem armen Spieler an den 
Kragen wollen. Diese sind komischer¬ 
weise nicht im Demo in der Basis auf¬ 
geführt. in der man sich ja alle Feinde 
in Ruhe anschauen kann. Lassen Sie 
sich überraschen... 


Cheat zu T hing on the Spring 

Drückt man während des Titelscreens 
nacheinander die Tasten THING und 
hält sie gedrückt, gelangt man in den 


Cheat-Modus, der sich darin bemerk¬ 
bar macht, daß sich die Borderfarbe 
verdunkelt. Ab sofort geht die Feder 
nicht mehr wegen Ölmangel ein. 


Teillösung zu Moonm ist 

Bernd Schmidt aus Aachen hat bei dem 
Infocom-Adventure Moonmist in der 
grünen und der roten Variation die Lö¬ 
sung gefunden. Zuerst ein paar allge¬ 
meine Tips zu allen Variationen: 

Das Auge des “Wyvem“ ist eine Tür¬ 
klingel. In allen Schlafzimmern, aber 
auch in manchen anderen Räumen 
(Sitting- und Drawing-Room) existie¬ 
ren verborgene Hebel, die Eingänge zu 
Geheimgängen freilegen. Im eigenen 
Schlafzimmer ist es ein Schalter an der 
Seite des “wall mirrors“, in “Tamara’s 
bedroom“ der Bettpfosten, in dem 
Lord Jack’s das Teleskop, in Vivien*s 
die Statue. In der Küche ist eine Lam¬ 
pe. die man in den Geheimgängen da¬ 
beihaben sollte. Im Schlafzimmer zieht 
man sich zuerst um und wäscht sich im 
Bad. Bei der grünen Variation ist der 
Schatz in dem Office im “inkwell“ ver¬ 
steckt. Beweise für das Verbrechen fin¬ 
det man in Form eines “Lab note- 
books“ in der Bibliothek, wenn man 
die “bookcases“ untersucht. 

Ist man im Besitz dieser Dinge, sollte 
man die “secret passages“ aufsuchen. 
Bei “my entrance“ wartet man nun auf 
den Geist. Sobald er auftaucht (es 
kommt auch vor, daß man ihn nicht 
trifft), muß man sofort den Knopf am 
“aerosol device“ drücken, das Gespen¬ 
sterkostüm wegnehmen und Dr. Wen- 
dish verhaften. In der roten Variation 
ist im Schirmständer im Foyer ein 
Stock versteckt. Kratzt man die Farbe 
ab. ist darunter der Schatz, ein “war 
club“ versteckt. 

Beweise für das Verbrechen findet man 
hier, wenn man durch Lord Jack's 
Schlüsselloch (im first floor corridor) 
schaut, dann das “farnily crest“ weg¬ 
nimmt und den Tape Recorder anstellt. 
Nun kann man wieder in die “secret 
passage“ vor das eigene Schlafzimmer 
gehen und auf den Geist warten. So¬ 
bald er auftaucht, sollte man ihm nicht 
Böses wollen, sondern lediglich 
“ghost, hello“ eingeben. Jetzt kann 
man durch die Geheimgänge zu Lord 
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Jack’s Schlafzimmer und nimmt ihn 
fest. 

Ghostbusters, Mission Elevator 

Wer diese beiden Spiele schon in die 
Schublade gelegt hat, weil sie ihm zu 
schwierig waren, sollte sie nun wieder 
hervorkramen. Bei Ghostbusters kann 
man in den Besitz von 999.900 $ gelan¬ 
gen, indem man eine bereits auf der 
Diskette angelegte Kontonummer be¬ 
nutzt. Auf die Frage des Kontoinhabers 
gibt man keinen Namen ein; die Konto¬ 
nummer lautet 46321231. 

Bei Mission Elevator erhält man un¬ 
endlich viele Leben, wenn man die Zei¬ 
le 31 folgendermaßen ändert: 

31 POKE &1816,&C9:CALL &17B3: 

MEMORY &198F: LOAD "ELE1 U ,&1990: 

POKE &806,&0:P0KE &857D,&0:CALL &182B 

Head over Heels 

Die Räume mit drei Hush Puppies (sie 
stehen vor einer Tür, die man nur mit 
Heels erreichen kann) kann man nun 
auch mit Head erreichen. So wird’s ge¬ 
macht: 

Man stellt Head auf Heels und läßt die 
Hüpftaste gedrückt. Jetzt springt Head 
hoch. Wenn er die höchste Stelle er¬ 
reicht hat, sollte man schnell ein paar¬ 
mal die Tauschtaste betätigen (hier 
kommt es auf das richtige Timing an). 
Siehe da: Head befindet sich oben an 
der Tür! 

Tips zu Sidewalk 

Im zweiten Bild sollte man sich das er¬ 
ste Fenster etwas genauer anschauen. 
Im dritten Bild muß man dem feschen 
Mädel den Schlüssel abkaufen (nicht 
die ganze Auslage!). 

Im vierten Bild beim Zaun müssen Sie 
sich die ersten zwei Latten vorknöpfen. 
Wenn Sie auf den langhaarigen Men¬ 
schen treffen, können Sie ihn fragen, 
wo es Karten zu kaufen gibt. Danach 
suchen Sie am besten den Plattenladen 
auf, von dessen Besitzer sie die Karten 
erhalten können. 

Sollte er keine Karten mehr besitzen, 
fragen Sie ihn am besten, wo noch wel¬ 
che erhältlich sind. Nebenbei können 
Sic sich auch erkundigen, wo Germai- 
ne wohnt. 

Nun können Sie wiederden netten Her¬ 
ren aufsuchen, der Ihnen die Auskunft 
über den Plattenladen gegeben hat. 
Diesen können Sie nun nach ihrem 
“Bock“ ausfragen. Gehen Sie durch 
die rechte Tür. Hier treffen Sie auf 


Germaine, die noch ein paar Karten be¬ 
sitzt. Plauschen Sie ein wenig mit dem 
Mädchen, wird Sie Ihnen den Hinweis 
geben können, daß sich der Motor in 
einer Sackgasse befindet. Nach dieser 
Information laufen Sie schnell zum 
Start und gehen zweimal nach vorn. 
Beim Schrotthändler brauchen Sie nur 
ein Rad zu kaufen. Sollte Ihnen noch 
ein Teil fehlen, können Sie sich darum 
prügeln. Linke und rechte Haken wir¬ 
ken Wunder. 

Wenn Sie nun alle Teile beisammen ha¬ 
ben, können Sie eine Telefonzelle auf¬ 
suchen und Ihr Kommen bestätigen. 

Lösung zu Sram 

Dietmar Craul hat das Adventure Sram 
vollständig gelöst und bietet es nun in 
der Gamers Message an. Die Aufgabe 
dieses Adventures besteht darin, den 
gefangenen König Egres zu befreien. 
Vom Startfeld gehl man zunächst nach 
Norden und klettert dort auf den Baum. 
Auf diesem findet man ein Nest, in dem 
sich ein Messer befindet, das man an 
sich nehmen sollte. Anschließend 
steigt man wieder herab und geht nach 
Westen. 

Am Wasserfall angekommen, gehen 
Sie hindurch und gelangen somit in 
eine Grotte, in der Sie eine Schaufel 
und ein Faß finden. Nehmen Sie die 
Schaufel, und untersuchen Sie das Faß. 
Im Faß finden Sie eine Feldflasche, die 
Sie mit Wasser füllen müssen. 

Nun gehen Sie zuerst nach Osten, dann 
nach Süden, nehmen den Bogen an 
sich, der an dem Stein lehnt, gehen 
wieder nach Osten und dann nach Sü¬ 
den. Sie nehmen den Stock, der bei den 
Büschen steht und ziehen weiter nach 
Osten. Mittlerweile sollten Sie vor ei¬ 
nem Wildschwein stehen. Pflücken Sie 
eine Eichel, und bieten Sie diese dem 
Wildschwein an, das Ihnen dafür eine 
Borste gibt. Bemächtigen Sie sich eines 
Eichenblattes, das Sie auf dem Baum 
finden, von dem Sie auch die Eichel 
pflückten. Das Blatt und die Borste ge¬ 
hören schon zu den Utensilien des Zau¬ 
bertrankes. 

Jetzt gehen Sie nach Osten und über¬ 
queren die Brücke. Auf der Insel der 
Schlangen können Sie die Schlange mit 
dem Stab töten und ihre Haut in Ihr In¬ 
ventar aufnehmen. Nun gehen Sie 
zweimal Richtung Westen, dann nach 
Süden. Dort schwimmen Sie mit dem 
Baumstamm im See und nehmen sich 
eine Seerose. Von dort geht es nun 


nach Westen, wo Sie die Liane ergrei¬ 
fen und somit über das Wasser schwin¬ 
gen können. 

Auf der Insel angekommen, bemächti¬ 
gen Sie sich des goldenen Pfeiles, 
schwingen zurück und gehen nach We¬ 
sten. Nun schwimmen Sie zur Insel und 
graben im Sand. Die Eier, die zum 
Vorschein kommen, sollten Sie auch 
mitnehmen. 

Die folgenden Richtungen sind: We¬ 
sten, Westen, Norden. Hier sollten Sie 
das Wasser aus Ihrer Feldflasche zu 
sich nehmen. Um die Reise fortzuset¬ 
zen, gehen Sie zweimal nach Norden. 
Sind Sie bei dem Werwolf angekom- 
men, müssen Sie eingeben: SAGE: 
WAS FÜR GROSSE^ AUGEN DU 
DOCH HAST. Nachdem der Wolfsein 
Leben ausgehaucht hat. können Sie 
ihm ein Ohr abschneiden und mitneh¬ 
men. Jetzt geht es zweimal nach Osten. 
Dem Eremiten sollten Sie die Flöte 
wegnehmen. Auf das Rätsel heißt die 
Lösung Mensch. 

Wenn Sie die Flöte besitzen, gehen Sie 
nach Westen, dann nach Süden und 
nach Osten. Füllen Sie Ihre Feldflasche 
nach, bevor Sie Ihren Weg fortsetzen. 
Zweimal nach Westen, dann nach Sü¬ 
den, jetzt das Wasser trinken, und noch 
zweimal nach Süden gehen. Spielen Sic 
an dem Weg mit den Zentaurspuren die 
Flöte, daraufhin erscheint dann der 
Zentaur. Diesem geben Sie Pfeil und 
Bogen und erhalten als Gegenleistung 
einen Ersatzhuf. Nun haben Sie alle 
Zutaten beisammen. Gehen Sie nach 
Osten, füllen Sie die Flasche nach, und 
wandern weiter nach Westen. An¬ 
schließend gehen Sie zweimal nach 
Norden, trinken dort das Wasser, ge¬ 
hen wieder zweimal nach Norden und 
zweimal nach Osten. Geben Sie hier 
dem Eremiten die Zutaten, der Ihnen 
daraufhin den Zaubertrank überreicht. 
Danach gehen Sie nach Westen, nach 
Süden und viermal nach Osten. Geben 
Sie dem Gnom den Zaubertrank, wo¬ 
raufhin er Sie über den Fluß bringt. Bei 
der Hexe Edualc angekommen, sollten 
Sie den Anweisungen auf dem Bild¬ 
schirm folgen. 

Vor dem bewachten Tor des Schlosses 
heben Sic die Fußmatte hoch und fin¬ 
den darunter einen Schlüssel. Mit die¬ 
sem Schlüssel können Sie die Tür öff¬ 
nen und das Schloß betreten. In der 
Zelle der Gefangenen hilft Ihnen der 
Befehl GEBE KRAFT weiter, um das 
Abenteuer zu lösen. 

Herzlichen Glückwunsch! (br) 
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Titel-Designer 

Vorspanngenerator 

Haben Sie ein Programm geschrieben und benötigen da¬ 
für noch einen Vorspann? Mit diesem Programm kön¬ 
nen Sie einen Vorspann erzeugen, der Farbspielereien ä 
la Amiga auf den Bildschirm bringt und dazu noch eine 
Nachricht über den Bildschirm scrollt. 

Im abgedruckten Listing sind bereits alle Parameter festge¬ 
legt. Sie können das Programm nach dem Abtippen und Ab¬ 
speichern starten, den erzeugten Vorspann unter dem Namen 
“VORSP.BIN“ abspeichern und das abgedruckte Demopro¬ 
gramm (Listing 2) benutzen. 

Erzeugung eigener Vorspanne 

Wenn Sie sich für Ihren eigenen Vorspann nicht viel Arbeit 
machen wollen, können Sie die vorgegebenen Werte über¬ 
nehmen und nur den Text in Zeile 110 und 120 austauschen. 
Wollen Sie aber mehr verändern, so haben Sie dazu folgende 
Möglichkeiten: 

1. Zeichensatz 

a) Schriftmodus (Zeile 70) 

Sie können hier verschiedene Schriftarten (kursiv, dünn 
usw.) wählen. Diese kann man auch miteinander kombinie¬ 
ren, indem man die für den jeweiligen Schriftmodus benötig¬ 
ten Werte addiert. 

b) Rand (Zeile 80) 

Setzt man diesen Wert auf 1, so bekommt jedes Zeichen auf 
der rechten Seite einen Rand in PEN 2. 


c) Hintergrundfarbe (Zeile 230) 

d) Anzahl Farbbalken (Zeile 240) 

Dieser Wert darf nicht über 40 liegen. Da eine höhere Anzahl 
an Farbbalken auch mehr Rechenz.eit erfordert, kann auch 
hier ein großer Wert zum Flimmern des Bildes führen. Dies 
kann man aber durch Verkleinern der Werte für die Anzahl 
und Breite der Rasterzeilen beheben. 

e) Abstand der Balken (Zeile 250) 

Dieser Wert bestimmt, in welchem zeitlichen Abstand die 
Balken bewegt werden. Wählt man z.B. einen Wert von 4. so 
hat Balken Nr. 1 die augenblickliche Position von Balken 2 
erst nach vier Bewegungsschritten erreicht. 

0 Balkenfarben (Zeile 290-330) 

Jeder Balken besteht aus drei Farben, die in diesen Data/.ei- 
len festgelegt werden. Der erste Wert steht hierbei für die am 
äußeren Rand verwendeten Farben, der zweite für die weiter 
innen liegenden Farben, und der dritte Wert steht für die in 
der Milte des Balkens verwendete Farbe. Danach folgen die 
Farben für Balken 2 usw. Alle drei Farben eines Balkens 
sollten in etwa den gleichen Farbton haben, die außenliegen- 
den Farben sollten jedoch dunkler sein als die innenliegen- 
den, damit die Balken plastisch wirken. Schauen Sie sich den 
vorgegebenen Vorspann an, dann wissen Sie. was gemeint 
ist. 

5. Bewegung der Balken 

Die vertikale Bewegung der Balken besteht aus 256 Einzel¬ 
schritten. Sie wird durch eine mathematische Formel in Zeile 
400 festgelegt. Die errechnete Position wird in der Variablen 
“c“ gespeichert und kann von 0 bis zu der Anzahl der Raster¬ 
zeilen reichen. Die Formel sollte entweder von der Variablen 
“x‘ abhängen, die von 0 bis 255 hochzählt, oder aber von der 
Variablen “w“, welche Werte von 0 bis 359 annimmt, was 
bei der Benutzung von Winkelfunktionen wesentlich prakti¬ 
scher ist. Der Verlauf der Bewegung wird auf dem Bild¬ 
schirm als Kurve dargestellt. 


2. Schriftscrolling 

In Zeile 110 bis 130 können Sie den Text und die verwendete 
Bildschirmzeile für das Schrift-Scrolling festlegen. Der Text 
wird in Datazeilen abgelegt und durch eine Zeile, die 
“*ENDE*“ enthält, abgeschlossen. Der Text kann maximal 
2047 Zeichen lang sein. 


Abspeichern des Vorspan ns 

Hat das Programm alle nötigen Werte berechnet, so kann 
man den Vorspann entweder starten oder unter einem 


3. Tastennummer für Abbruch 

In Zeile 160 wird die Tastennummer (nicht der ASCII- 
Code!) der Taste angegeben, mit der der Vorspann abgebro¬ 
chen wird. Vorcingestellt ist die SPACE-Taste. 

4. Farbbalken 

a) Anzahl Rasterzeilen (Zeile 210) 

Die Anzahl der Zeilen legt fest, auf wievielen unterschiedli¬ 
chen Positionen sich ein Farbbalken befinden kann. Es dür¬ 
fen nur Werte kleiner 194 verwendet werden. 

b) Breite einer Zeile (Zeile 220) 

Dieser Wert bestimmt die Breite einer Rasterzeile und damit 
auch die Breite der Farbbalken, da sich diese immer über 
sechs Zeilen erstrecken. Zusammen mit Zeile 210 wird der 
Bereich des Bildschirms festgelegt, in dem sich die Balken 
bewegen können. Ist dieser zu groß, beginnt das Bild zu flim¬ 
mern. Dann muß einer der beiden Werte verkleinert werden. 
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Der Vorspanngenerator benutzt den ganzen Bildschinn. Überraschen Sie 
mal Ihre Freunde damit. 
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Einzelbezug 

»DATABOX« 


Absender: (Bittegenaue Ansthrift nngnhen!) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


Name 


Vorname 


Firma 


DMV-Verlag 
PC International 
Postfach 250 


Slraße/Nr./Postfach 


PLZ/Ort 


3440 Eschwege 



AMSTRÄ0 


»Oldie Aktion CPC« 

Absender: (Bitte genaue Anschrift nngnhen!! 


Name 


Vorname 


Firma 


StraBe/Nr./Postfach 

PLZ/Ort 


Antwortkarte 

DMV-Verlag 
Versandservice 
Postfach 250 


Bitte 

ausreichend 

frankieren 


3440 Eschwege 



»Bestellservice« 

Absender: (Bitte genaue Anschrift angeben !l 

Name 

Vorname 

Firma 

Slraße/Nr ./Postfach 

PLZ/Ort 


Bitte 

ausreichend 

frankieren 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



Abo-Order 
»ZEITSCHRIFT» 
»DATABOX« 


Das kompetente Magazin 


Bitte 

ausreichend 

frankieren 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 


Bestellen Sie noch heute 
Ihr Abonnement 
mit dieser Postkarte! 


3440 Eschwege 











































Bestellservice 


Joysticks (bitte ankreuzen): CPC-Sonderhefte (bitte ankreuzen): 


5119 

□ 

Competition Pro 

19,- 

DM 

307 

□ 

Sonderheft 1/86 

14, 

- DM 

5122 


Competition Pro Extra 

49,- 

DM 

30Ö 

□ 

Sonderheft 2/86 

14, 

- DM 

5116 

J 

TheCruiser + 

44. - 

DM 

300 

□ 

Sonderheft 3/86 

14, 

- DM 

5123 

□ 

Game Controller 

169, - 

DM 

310 

□ 

Sonderheft 4/87 

14, 

- DM 

5124 

□ 

Speed King Konix 

99, - 

DM 

311 

□ 

Sonderheft 5/87 

14, 

- DM 

5113 

□ 

Starfighter 

38,- 

DM 

312 

□ 

Sonderheft 6/88 

14, 

- DM 

5118 

n 

Multi Function Joystick DeLuxe 

59,- 

DM 

313 

— 1 

Sonderheft 7/88 

14, 

- DM 

5114 

n 

IconTroller 

58, - 

DM 






5111 

□ 

Phasor One 

48,- 

DM 






5112 

u 

Quickjoy 1 

19, - 

DM 






5117 

□ 

Gun Shot 

19, - 

DM 






5115 

□ 

The Cruiser 

39, - 

DM 







Sammelmappen: 


lJ DOS (Besi.-Nr 530) 

U TOOLBOX (Best -Nr 532i 
□ PCpur (Besl Nr B35) 


_ PC (Basl.-Nr 531) 

□ Window (Best-Nr 579) 

□ JOYSTICK (Besl Nr 533) 


2 Stck. 15,80 DM 


Einen Verrechnungsscheck in Höhe des Rechnungsbetrages 
habe ich beigefügt. 


Poho/Verpackung: 

Inland 3,- DM. Ausland 5, - DM 


_! Ich bitte um Lieferung per Nachnahme, zuzügi. der Nachnah¬ 
megebühr (nur innerhalb der BRD) 


Gesamtbetrag 


DM 

DM 


Datum 


»Abo-Order Zeitschrift» 

Hiermit bestelle ich ■»PC International« für mindestens 

□ 6 Ausgaben □ 12 Ausgaben 

Zustellung, Vfertriebskosten und MwSt sind im günstigen 
Preis von 30,- DM bzw. 60,- DM enthalten (BRD und 
West-Berlin). 

Auslandspreise: Europa 12 Ausgaben 90,- DM, 

6 Ausgaben 45,- DM 

Außereuropäisches Ausland 12 Ausgaben 120,- DM, 

6 Ausgaben 60,- DM 

Lieferung erfolgt ab der nächsterreichbaren Ausgabe 

Lieferanschrift Rechner-Typ 

□ Geschäft □ Privat U CPC □ Joyce C PC 



Vorname, Name 


Firma (nur wenn Lieferadresse) 



Straße, Nr/ Postfach 


PLZ/Oft (Bitte genaue Anschrift angehen!) 

Dieses Abonnement verlängert sich automatisch um 6 bzw. 12 Ausga 
ben, wenn es nicht sechs Wochen vor Ablauf schriftlich gekündigt wird. 


Datum Unterschrift im MrmqtMgen des oeseUl Vertrete*) 

Bitte unbedingt zwei Unterschriften leisten! 


Unterschrift (bei Minderjährigen ces gesetzt Vertreters) 


»Abo-Order DATABOX« 

Hiermit bestelle ich die 

LJ CPC Databox ' Joyce-Databox T PC 1512-Databox 

für mindestens □ 6 Ausgaben 1 t2 Ausgaben 
als □ Cassette LI Diskette 3" bzw 51/4“ 

Bezugspreise Inland (einschl, Porto/Verpackung) 

Cass. 6 Ausgaben 90,- DM, 12 Ausgaben 180, - DM 
Disk 3'' 6 Ausgaben 150- DM, 12 Ausgaben 300,- DM 
Bezugspreise Ausland ieingeki Werte außereurop.) 

Cass. 6Ausg 100,-DM(120-)DM, 12Ausg.200, (240,-JOM 
Disk 3- 6 Ausg 160- DM (180-) DM. 12 Ausg. 320.- (360,-) DM 

Gewünschte Zahlungsweise: 

Bequem und bargeldlos durch Bankabbuchung 



Bankleitzahl (von Scheck abschreiben) 


I I I 1 I II I I I I I 1 1 I I I I I 

Konto-Nr.Mnhabor 


Geldinstitut 

Gegen Rechnung — zahlbar innerhalb zwei Wochen nach Erhalt 
(Bin© keine Vorauszahlung eisten — Rechnung abwarten) 

Garantie: 

Ich weiß daß ich diese Vereinbarung innerhalb einer Woche bei 
der Bestelladresse schriftlich widerrufen Kann, wobei bereits die 
rech!zeitige Absendung meines Widerrufschroibens zur Frist¬ 
wahrung ausroicht. Ich bestätige das durch meine zweite Unter¬ 
schrift. 


Datum Unterschrift (bei Minderjährigen des gesetzt Vertreters) 



2 

a 

i 

O)«' 

C T3 
3 5 

y fo 

O ü> 

a< 

ffli 


o 

tJ m 
O -o 

+ £ 


c ~ - 


0 

Ol 

O 

c 

0 


0 

V 

o 


O 

o. 

O 


c 

0 


< 


0 

'■5 


0 


Oldie Aktion CPC ■ Oldie Aktion CPC 


Bestellung CPC Spiele 

Bitte liefern Sie mir aus Ihrer Oldie Aktion folgende Spiele- 
Kombipacks: 


□ 3er Kassettenpack “CPC Oldies“ Best.-Nr. 188 22,- DM 

□ 5er Kassettenpack “CPC Oldies“ Best.-Nr. 189 30,- DM 


□ 3er Diskettenpack “CPC Oldies“ Best.-Nr. 190 36,-DM 

□ 5er Diskettenpack "CPC Oldies“ Best.-Nr. 191 54,-DM 

Sofern noch erhältlich, soll meine Bestellung die folgenden 
Titel beinhalten. Falls einer oder mehrere der von mir ge¬ 
wünschten Titel vergriffen sein sollte, wird von DMV ein Er¬ 
satztitel aus dem nebenstehenden Angebot geliefert. 

Die Spiele sind auf Kassetten und 3“ Disketten lieferbar. 


Porto/Verpackung 

(Inland 3,- DM, Ausland 5.- DM) _ 

Gesamtbetrag _ 

C Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme (nur innerhalb der BRD möglich). 
Bei Nachnahme kommt zum Gesamtbetrag noch die Nachnahmegebühr 
hinzu. 


■ Oldie Aktion CPC 

0 


□ i 82 Space Shuttle Cass. 

IJ iea Boxing Cass. 

□ iss Ballblazer Cass. 

□ i75 Wintersports Cass. 

□ i79 Spindizzy Cass. 

LJ i67 Hacker II Cass. 

□ 177 Tempest Cass. 

□ i69 Star Riders II Cass. 

□ i7i Big Trouble in 

Little China Cass. 

□ 17.1 Sailing Cass. 

U i8i Ghostbusters 3“ Disk. 

□ i83 Space Shuttle 3“ Disk. 

□ i64 Boxing 3“ Disk. 

□ i84 Little Computer People 

3“ Disk. 

□ i66 Ballblazer 3“ Disk. 

□ i76 Wintersports 3“ Disk. 

□ leo Spindizzy 3“ Disk. 

□ mH Hacker II 3“ Disk, 
n ma Tempest 3“ Disk. 

□ i7ü Star Raiders II 3“ Disk. 

□ 172 Big Trouble in 

Little China 3“ Disk. 

— i7»i Sailing 3“ Disk. 


Q, 

CD 

> 

X 

r+ 

0 

3 

o 

■0 

o 

■ 

0 

o. 

CD 

> 

£± 

0 

3 

o 

3 

o 


Dalum 


Unterschrift (bei Minderjährigen desgesetzl Vertreters) 







































































Tips & Tricks—| 


bestimmten Dateinamen abspeichern. Folgende Befehlsfolge 
lädt und startet einen solchen Vorspann: 

MEMORY &8FFF:L0AD "Karne des Vorspanns" : KODE 1:CALL &A000 

Man kann nach dem MODE-Bcfchl auch zuerst Text oder 
Grafik aufbauen oder die Farben ändern, da der Bildschirm 
beim Starten des Vorspanns nicht gelöscht wird. Weil die 
Farbbalken durch Verändern von Hintergrund- und Rahmen¬ 
farbe erzeugt werden, haben die Befehle INK 0,x und BOR- 
DRR x keine Auswirkungen. Die Hintergrundfarbe wird 
statt dessen im Vorspann-Generator in Zeile 230 festgelegt. 

Farbe 1-3 können jedoch vordem Starten des Vorspanns frei 
gewählt werden. 

(Oliver Heggelbacher/cd) 



für 464-664-6128 


□ 


1 ' [117] 

2 ' Listing 1 [1024] 

3 ' [117] 

10 '******»*«********************* [1252] 

20 '*** Vorspanngenerator vl.O *** [1761] 

30 '****************************** [1252] 

40 IF HI MEM >36863 THEN SYMBOL AFTER 256:ME [ 7243 ] 

MORY &8FFF:OPENOUT "dummyMEMORY HIMEM-1: 
CLOSEOUT 

50 ' [117] 

60 ' Zeichensatz festlegen [1567] 


70 smod=5: Schrift: l=kursiv, 2-unterbroc [3769] 

hen, 4=duenn, 8=fett 

80 z f a r b=1: 0 = einfarbig, l = zweifarbig (PE [3613] 
N l=Schrift, PEN 2 = "Sc hatten " ) 


90 GOSUB 610:' Zeichensatz berechnen [1381] 

100 ' Sehriftscrol11ng [1499] 

110 DATA "Dies ist der ultimative Vorspann [10985] 

generator fuer den Amstrad CPC.A 

ndromedaSoft - Der Spezialist fuer AMIGA-E 

mu 1 at i onen." 

120 DATA *ENDE* [ 502 ] 

130 ze=25:' Position des Scrollings in Tex [3380] 
tzei1en ( 1-25 ) 

140 RESTORE 110.'GOSUB 790 [1603] 

150 [117] 

160 POKE &A230.47: Tastennummer fuer Abbr [2319] 

uch (4 7 = SPACE) 

170 ’ [117] 

180 GOSUB 940:' Farbcodes einiesen [1110] 

190 ' [117] 

200 Balkenfeld definieren [3888] 

210 z ei 1 = 180: Anzahl Zeilen [ 1455] 

220 breit=10:' Breite einer Rasterzeile [2322] 
230 hgr=0:' Hintergrundfarbe [1447] 

240 banz = 10: Anzahl Balken [1180] 

250 abst=4: Abstand der Balken [506] 

260 RESTORE 290:GOSUB 870 [1774] 

270 ' [117] 

280 ' Balkenfarben [1295] 

290 DATA 3,6,16,3,15.24 [328] 

300 DATA 12, 15,24,9,21,25 [ 653] 

310 DATA 9,19,24,10,19,26 [419] 

320 DATA 9,11,23,2,11,26 [721] 

330 DATA 5,14,26,5,17,26 [804] 

340 ' [117.] 

350 Bewegung der Balken [1950] 

360 MODE 1:L0CATE 1,25:PRINT "Bewegung der [3894] 

Balken" 

370 MOVE 0,398:DR AWR 639,0,2:M0VE 0,394-ze [3258] 
i1*2:ORAWR 639,0 

380 adr=&A300:DEG [952] 

390 FOR x=0 TO 255:w=x*1.40625 [1340] 


Lisling Vorspann 



- das ist die Software zur PC international - 
- jeden Monat neu - 

DATA BOX: 


— mehr als der übliche 
Softwareservice 

— bringt ergänzend sämt¬ 
liche Listings der jeweili¬ 
gen Zeitschrift und alle 
Programmbeispiele auf 
Kassette oder auf 3”Dis- 
kette. 


— Programme sind, so¬ 
weit systembedingt 
möglich, auf allen drei 
CPC-Modellen lauffä¬ 
hig. Einzelheiten ent¬ 
nehmen Sie bitte der 
nebenstehenden Auf¬ 
stellung. 


soweit die Programme nicht 
Bestandteil einer Serie sind, 
befinden sich alle Program¬ 
me als .ready to run' auf der 
Databox, 


erscheint jeden Monat und 
trägt das Titelbild des gleich¬ 
zeitig erscheinenden Heftes. 


der Datenträger zum PC Inter¬ 
national enthält außerdem je¬ 
desmal ein zusätzliches Bo¬ 
nusprogramm. das nicht im 
Heft abgedruckt ist. 


Für alle CPCs als Kassette und 
3"-Diskette. 

Auch als Abonnement mit Preis¬ 
vorteil erhältlich. 


Inhalt der Databox zu Hefl 2/89: 


Programm 

46a 664 

6>28 

The Animalc-f/Crea'or (Dalalacsri 

• 

• 

• 

The Animalö' (Dslaiaccr) 

• 

• 

• 

Animai ons Demo 

• 

• 

• 

Assembler Ecke 

• 

• 

• 

Titel-Designer iDemui 

• 

• 

• 

Titel-Designer 

• 

• 

• 

Kalander 

• 

• 

• 

l.iSter 

SOI 

SO.” (Dalalaita) 

• 

• 

• 

• 

• 

Floop.'hirs (DisI.rron.'AssE Tib er> 

• 

• 

• 

Flcppykure (Disk rr on/Dalalader) 

• 

• 

• 

1K8 Bekarcia 

• 

• 

• 

1 KB te it 

• 

• 

• 

1 KB - CharaWp'nennuno 

• 

• 

• 

1 KB - Troff 

• 

• 

• 

Scnleo mal wieder ’mii Emulator 
Bonusprogramm 


• 

• 

Hancelskompane (Slrategia-Ssie) 

• 

• 

• 

Es be'inden stell noch Inic Files (INFfaul 
DATABOX 

de* 




■» Amstrad 

INTERNATIONAL 


JOYCE - PC 


Hilfe: 

Alles über Drucker 



Elnzelbezugspreiae für Databox: 


Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 


Das Databox-Abo kostet: 


3“-0iskette 


24, - OM {unverbindliche Prcoempfehlung) 


'.Vom Sie uwk den OMV-Bestellserwce bestehen, alle 

loiflendos 



Emttilprois 24,- OM 

Einznlpre-a 

24,- OM 

zrgl V*>rsnndk 3,- DM 

jzgi Vornendk 

&- OM 

Endprcln 27,- OM 

Endpreis 

29,- OM 


Kassette 


14.- DM (unverbindliche ProiBemprehlu'ioi 



folgendes 



Ernj-olprol-, 14,- DM 

Ein/olproic 

14.- UM 

77Q 1 Wsandk 3,- DM 

t*gl. Voroand»* 

9.- DM 

Endpreis 17,- DM 

Endprel» 

19.- OM 


Zahlungswelse: 

Am einfachsten per Vorkasse (Ver¬ 
rechnungsscheck) oder als Nach¬ 
nahme zuzüglich der Nachnahme¬ 
gebühr (in das Ausland ist Nachnah¬ 
me nicht möglich). 


Als Kassette für 1/2 Jahr 
(6 Lieferungen) 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland.100,— DM 

Im außereuropäischen Ausland.120,— DM 

Als Diskette lür 1/2 Jahr (6 Lielerungen): 

Im Inland und West-Berlin.150.— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.180— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette für I Jahr (12 Lieferungen): 

Im Inland und West-Berlin..300— DM 

Im europäischen Ausland.320,— DM 

Im außereuropäischen Ausland.360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 


DMV-verlag * Postfach 250 ■ 3440 Eschwege 

Bitte Bestellkarte benutzen! 





















































I—Tips & Tricks 


400 c=INT(90+SIN(w*2)*56+SIN(w*3)*38) 

[2554J 


980 ' 

[117] 

410 folgende Funktionen ergeben ebenfall 

[ 5504 ] 


990 MC-Datas einiesen 

[ 642] 

s interessante Bewegungen 



1000 ' 

[117] 

420 * 1. c=int(90+sin(w)*80 + sin(w*3)*44) 

[2306] 


1010 adr = 8,A000 : ze= 1080 : RESTORE 1080 

[ 1867] 

430 ' 2. if w<180 then c=int( 180-sin(w)* 18 

[2655] 


1020 FOR x=0 TO 21:ch=0 

[1155] 

0) eise c=180 



1030 FOR c = 0 TO 1 5 : READ w$ : w = VAL ( 1 8. +w$ ) : c 

[7380] 

440 ' Bei 2. sollte man die Variable "aost 

[2254] 


h=(ch*2+w):ch=ch-INT(ch/65535) *65 535:POKE 


" auf 16 setzen. 



adr,w:adr=adr+l:NEXT c 


450 PLOT x* 2,39 6-c * 2 , 1 

[1284] 


1040 READ w$ : su = VAL ( "8. "+w$ ) : IF su<0 THEN s 

[2954] 

460 IF c < 0 0R Ozeil THEN LOCATE 1,25:PRIN 

[ 7190 ] 


u=su+65536 


T c;"= ungueltiger Funktionswert:::";CHR$( 



1050 IF suOch THEN PRINT 'Datafehler in Z 

[5646] 

7):END 



eile ;ze:END 


470 P0KE adr,c:adr=adr+l:NEXT x 

[1483] 


1060 ze=ze+10:NEXT x 

( 1255 ] 

480 ’ 

[117] 


1070 RETURN 

[ 555 ] 

490 GOSUB 1010:' MC einiesen 

[1471] 


1080 DATA CD,19,BD,3A,35,A2,32,29,Al,3D,32 

[2904 ] 

500 • 

[117] 


,7A,AO.2A,32,A2, 31DB 


510 abspeichern/starten 

[1431 ] 


1090 DATA DD,21,D7,AO,CD,45,A1,2A,32,A2,23 

[ 1499 ] 

520 MODE 1:INPUT "Vorspann (a)bspeichern o 

[ 5504 ] 


,DD,21,D4,AO,CD, E2B9 


der (s)tarten :' ,a$:a$=L0WER$(a$) 



1100 DATA 45,Al,2A,32,A2,01,4F,00,09.22,5D 

[2076] 

530 IF a$="s" THEN CALL &AOOO:GOTO 520 

[2218] 


,Al.FD,21,00,98, FEOC 


540 IF a$ < > " a " THEN 520 

[ 731 ] 


1110 DATA AF,32,59,Al ,3A,59,Al , EE,FF,32,59 

[ 2993 ] 

550 PRINT:IN PUT "Filename :",n$:IF n$="" T 

[ 1605 ] 


,Al,28,ID,FD,7E, 39DB 


HEN 520 



1120 DATA 00,FD,23,FE,FF,20,06,FD,21,00,98 

[3104 ] 

560 SAVE n$ , b , S.9 000 , &1600 

[1282] 


,18,Fl,6F,26,00 , 2FED 


570 GOTO 520 

[413] 


1130 OATA 29,29.29,29,01,00,90,09,22,5B,Al 

[2473] 

580 ' 

[117] 


,2A,5B,A1,E0,5B, E738 


590 * 

[117] 


1140 DATA 5D,Al,06,08, 7E, 12,23 , 7A,C6,08,57 

[2630] 

600 ' Schriftmodus berechnen 

[ 1830 ] 


,10,F7,22,5B,Al, 72D4 


610 SYMBOL AFTER 0 

[1116] 


1150 DATA 3A,34,A2,21,5F,Al,11,60,Al,01,00 

[3175] 

620 ' hier gegebenenfalls eigene Symbol-De 

[ 3368 ] 


,00.77,ED,BO,FD, A8CF 


finitionen einfuegen 



1160 DATA E5,3A,36,A2,32,5A,Al,01,00,A3,DD 

[2104 ] 

630 PRINT "Zeichensatz wird berechnet. . . " 

[5254] 


,21,37,A2,FD,21, 6861 


640 IF smod AND 4 THEN FOR x=l TO 1024:POK 

[5465] 


1170 DATA 60,A2,DD,7E,00,3C,DO,77,00,DD,23 

[2257] 

E HIMEM+x,PEEK(HIMEM+x) AND (PEEK(HIMEM+x) 



,6F,26,00,09,6E, 65BF 


*2 ) :NEXT x 



1180 DATA 26,00,11,5F,Al,19,FD,7E,00,FD,56 

[ 339 7 ] 

650 IF smod AND 8 THEN FOR x=l TO 1024:POK 

[7256] 


,01,FD,5E,02,FD, 4894 


E HIMEM+x,PEEK(HIMEM+x) OR I NT(PEEK(HIMEMf 



1190 DATA 23,FD,23,FD,23,77,23,72,23,73,23 

[ 22 72 ] 

x ) /2 ) :NEXT x 



,72,23,77,21,5A, D9B8 


660 IF smod AND 2 THEN FOR x=l TO 1024:POK 

[4741] 


1200 DATA Al,35,20,CE,FD,El,3E,2F,CD,IE,BB 

[3538] 

E HIMEM+x,PEEK(HIMEM+x) AND 239:NEXT x 



,20,76,CD,19,BD, 46AE 


670 IF smod AND 1 THEN FOR x=0 TO 127:FOR 

[7560] 


1210 DATA F3,06,00,21,00,00,11,00,00,OE.4F 

[3471] 

C=0 TO 3:adr=HIMEM+l+x*8+c:POKE adr,INT(PE 



.ED.BO,21,00,00, 54B1 


EK(adr)/2):NEXT c,x 



1220 DATA 11,00,00,OE,4F,ED,BO,21,00,00,11 

[3209 ] 

680 Zeichensatzdaten erstellen 

[1918 ] 


,00,00,OE,4F,ED, 1OF 4 


690 ad r = 8.9COO : MODE 1:PAPER 0 

[2004] 


1230 DATA BO,21,00,00,11,00,00,OE.4F,ED,BO 

[2041 ] 

700 FOR x=0 TO 127 

[915] 


,21,00,00,11,00, 5153 


710 IF z f a r b = 0 THEN LOCATE 1,1:PRINT CHR$( 

[2997] 


1240 DATA 00,OE,4F,ED,BO,21,00,00,11,00,00 

[ 2958 ] 

1);CHR$(x);:GOTO 740 



,OE,4F,ED.BO,21, 452F 


720 TAG:MOVE 0,398:0RAW 0,384,C:PLOT -2,0, 

[3692] 


1250 DATA 00,00,11,00,00,OE,4F,ED,BO,21,00 

[3028] 

2:MOVE 2,398: PRINT CHR$(x ) ; :TAGOFF 



,00,11,00.00,OE, 43DA 


730 LOCATE 1, 1:PRI NT CHR$(22) ;CHR$(1) ;CHR$ 

[4411 ] 


1260 DATA 4F,ED,BO,01,10,7F,16,20,IE,00,21 

[2566] 

(1);CHR$(x);CHR$(22);CHR$(0) ; 



,5F,Al,7E,ED,49, 8AAE 


740 FOR C = 0 TO 1:FOR w=0 TO 7:POKE adr.PEE 

[ 3431 ] 


1270 DATA ED,79,ED,51,ED,79,3A,31,A2,30,20 

[2416] 

K(49152+w*2048+c):adr=adr+l:NEXT w,c 



,FD,23,1D.20,ED, D88A 


750 NEXT x 

[ 356] 


1280 DATA C3,34,AO,FB,C9,06,08,11,OA,00,DD 

[2451] 

760 SYMBOL AFTER 256:RETURN 

[ 1698 ] 


,75,00,00,74,01, DDE 5 


770 ' 

[117] 


1290 DATA 7C.C6,08,67,DD, 19, 10,F2,C9,00,00 

[ 2991 ] 

780 ' Text abspeichern 

[ 1522] 


,00,00,00,00,00, B2FF 


790 ad r = &9800 

[ 556 ] 









810 FOR x=l TO LEN(t$):POKE adr,ASC(MID$(t 

[3630] 




$ , x , 1 ) ) : adr = ad r+'l : NEXT x : GOTO 800 





820 POKE adr,255 

[ 473] 


10 ' 

[117] 

830 ad r = (ze-1)*80:POKE &A232,adr MOD 256:P 

[3137] 


20 ' Listing 2 

[ 1019 ] 

OKE &A233,8.C0 + I NT(adr/256) 



30 ' 

[117] 

840 RETURN 

[ 555 ] 


40 ' Demoprcgramm zum Vorspanngenerator 

[ 1 738 ] 

850 ’ 

[117] 


50 ' 

[117] 

860 ' Balkenfeld 

[1331] 


60 SYMBOL AFTER 256:MEMORY 8.8FFF 

[ 1898] 

870 POKE 8.A231 , brei t : POKE &A2 35 , z e i 1 + 7 : POK 

[3743] 


70 LOAD" vo r sp . b i n ", 8.9000 

[ 1 707 ] 

E &A234,co(hgr) 



80 BORGER 0,1:MODE 1 

[ 1581 ] 

880 POKE 8.A236,banz:FOR x = 0 TO banz-l:POKE 

[3282 ] 


90 INK 0,0:INK 1,0:INK 2,0:INK 3.0 

[ 907 ] 

&A237+X,x*abst:NEXT x 



100 PEN 1 :PRI NT ANDROMEDA ;CHR$( 13) ; 

[ 2422 ] 

890 FOR x = 0 TO banz-1 

[ 122 7 ] 


110 TAG:PLOT -2,0,3:FOR x = 0 TO 71:FOR y = 0 

[5776] 

900 FOR c=0 TO 2:READ f:POKE &A260+x*3+c,c 

[2855 ] 


TO 6 : IF TEST(x*2,398-y*2)>0 THEN MOVE 32 + x 


o(f ) :NEXT c.x 



*8,284-y*8:PRINT CHR${129), 


910 RETURN 

[ 555 ] 


120 NEXT y , x:TAGOFF 

[ 1060] 

920 ' 

[117] 


130 PRINT CHR$(23); 1 ,:FOR x=220 TO 292 S 

[ 72 85 ] 

930 ’ Farbtabelle einiesen 

[ 1539 ] 


TEP 2:MOV E 0,x:DRAWR 639,0:NEXT x:PRINT CH 


940 DIM co(26):RESTORE 950:F0R x=0 TO 26:R 

[5815] 


R$(23);"0"; 


EAD c:co(x)=c+64:NEXT x:RETURN 



140 t$- ' Vorspanngenerator vl.O - 

[ 2109 ] 

950 DATA 8.14,8,04,8.15, 8.1c , 8.18,8.1d, 8.0c , 8.05.8. 

[1743] 


150 FOR x=l TO 120:PEN x MOD 3+l:PRINT MID 

[4346] 

Od,& 1 6 



$(t$,x MOD LEN(t$)+1,1);:NEXT x 


960 DATA &06,8,1 7 , Sie , 8.00,8.1 f ,&0e , 8.07 , 8.Cf . 8. 

[ 1706] 


160 LOCATE 19, 13: PE N 2:PRINT "SOFT" 

[ 1584 ] 

12,8,02 



170 INK 1,15:INK 2,11: INK 3,19 

[ 599 ] 

970 DATA 8.13,8.1a , 8.19,8.1b , 8.0a , 8.03,8.0b 

[1321] 


180 CALL &A000:BORGER 0 

[ 1043 ] 

Listrng Vorspann 



Listing Vorspann 
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Tips & Tricks—i 


Kalender 

Dem (Ur)-Großvater 
auf der Spur 

Wissen Sie, was der 12.4.1946 für 
ein Tag war? Sollten Sie es nicht 
wissen, kann Ihnen unser kurzes 
Programm Kalender weiterhelfen. 


Kalender des Jahres 1989 



Januar 




Februar 




Mae rz 



April 




Mo 


2 

9 

16 

23 

30 


6 

13 

20 

27 



6 

13 

20 

27 


3 

10 

17 

24 

Di 


3 

10 

17 

24 

31 


7 

14 

21 

28 



7 

14 

21 

28 


4 

11 

18 

25 

Ml 


4 

11 

18 

25 


1 

8 

15 

22 



1 

8 

15 

22 

29 


5 

12 

19 

26 

Do 


5 

12 

19 

26 


2 

9 

16 

23 



2 

9 

16 

23 

30 


6 

13 

20 

27 

Fr 


6 

13 

20 

27 


3 

10 

17 

24 



3 

10 

17 

24 

31 


7 

14 

21 

28 

Sa 


7 

14 

21 

28 


4 

11 

18 

25 



4 

11 

18 

25 


1 

8 

15 

22 

29 

So 

1 

8 

15 

22 

29 


5 

12 

19 

26 



5 

12 

19 

26 


2 

9 

16 

23 

30 


Mal 





Juni 





Jul 1 




August 



MO 

1 

8 

15 

22 

29 



5 

12 

19 

26 



3 

10 

17 

24 31 


7 

14 

21 

28 

Dl 

2 

9 

16 

23 

30 



6 

13 

20 

27 



4 

11 

18 

25 

1 

8 

15 

22 

29 

Ml 

3 

10 

17 

24 

31 



7 

14 

21 

28 



5 

12 

19 

26 

2 

9 

16 

23 

30 

DO 

4 

11 

18 

25 



1 

8 

15 

22 

29 



6 

13 

20 

27 

3 

10 

17 

24 

31 

Fr 

5 

12 

19 

26 



2 

9 

16 

23 

30 



7 

14 

21 

28 

4 

11 

18 

25 


Sa 

6 

13 

20 

27 



3 

10 

17 

24 



1 

8 

15 

22 

29 

5 

12 

19 

26 


So 

7 

14 

21 

28 



4 

11 

18 

25 



2 

9 

16 

23 

30 

6 

13 

20 

27 



Septembe r 



Oktobe r 




Novembe r 


Dezembe r 



MO 


4 

11 

18 

25 



2 

9 

16 

23 

30 


6 

13 

20 

27 


4 

11 

18 

25 

Dl 


5 

12 

19 

26 



3 

10 

17 

24 

31 


7 

14 

21 

28 


5 

12 

19 

26 

Ml 


6 

13 

20 

27 



4 

11 

18 

25 


1 

8 

15 

22 

29 


6 

13 

20 

27 

DO 


7 

14 

21 

28 



5 

12 

19 

26 


2 

9 

16 

23 

30 


7 

14 

21 

28 

Fr 

1 

8 

15 

22 

29 



6 

13 

20 

27 


3 

10 

1 7 

24 


1 

8 

15 

22 

29 

Sa 

2 

9 

16 

23 

30 



7 

14 

21 

28 


4 

11 

18 

25 


2 

9 

16 

23 

30 

So 

3 

10 

17 

24 



1 

8 

15 

22 

29 


5 

12 

19 

26 


3 

10 

17 

24 

31 


Ahb. 1: Der Kalender fiir 1989 


Nach dem Start des Programms erwartet der Computer die 
Eingabe eines beliebigen Datums im Bereich von 1 bis 9999 
nach Christi. Diese Eingabe ist im Format von TAG < RE¬ 
TURN >, MONAT < RETURN > und JAHR < RE¬ 
TURN > zu tätigen. 

Sollten Sie einen kompletten Ausdruck des Kalenders eines 
Jahres wünschen, so geben Sie jeweils als Datum den 1.1. 
des Jahres ein und beantworten Sie die Frage, ob Sie einen 
Komplettausdruck wünschen mit “Ja“. Nun haben Sie die 
Möglichkeit, den Kalender auf dem Bildschirm oder auf den 
Drucker ausgeben zu lassen (Abb. 1). 

Wenn Sie nur den Wochentag eines bestimmten Tages wün¬ 
schen, so geben Sie das Dalum ein. Sollte diese zufällig auch 
der 1.1. eines Jahres sein, beantworten Sie die nachfolgende 
Frage mit “Nein“, und der entsprechende Wochentag wird 
auf dem Bildschirm ausgegeben. 


Variablenliste 


anzt() - 

Anzahl der Wochentage des angegebenen Monats 

wtn$() - 

Name des Wochentags 

mna$() - 

Name des Monats 

coa$Q - 

Kontrollvariable Anfang 

coe$() - 

Kontrollvariable F.ndc 

i.ms.ini.wt.k - 

Laufvariablen 

tage - 

Tag 

monat - 

Monat 

jahr - 

Jahr 

fehler - 

Eingabe fehlerhaft? [1/0] 

ta$ - 

Tastendruck [j/n,b/d.(SPACE)l 

schalt$- 

Schaltjahr? 

dif- 

Jahresdifferenz 

zus - 

Zusatz 10/13] 

bd - 

Ausgabe auf Bildschirm(0) oder Drucker!8) 

spl...sp5 - 

Speicher 1. .Speicher 5 


(Michael Graßmann/rs) 


für 464-664-6128 

l 

10 REM ***************************** [1471] 

20 REM * *— Kalender —* * [1371] 

30 REM * by * [403] 

40 REM * von Michael Grassmann * [1689] 

50 REM » August 1988 * [1450] 

90 REM ***************************** [1471] 

100 REM [272] 

110 REM ************************ Einlesen [4244] 

der Felder ************************** 

120 REM [272] 

130 DIM an z t(2 6),wtn$(7) ,mna$(12) ,coa$(12) [3038] 

, coe$(12) 

140 FOR i=1 TO 26 [315] 

150 READ anzt(1) [ 1042 ] 

160 NEXT 1 [375] 

170 FOR i=1 TO 7 [447] 

180 READ wtn$( i ) [583] 

190 NEXT 1 [375] 

200 FOR 1=1 TO 12 [321] 

210 READ mna$(i) [456] 

220 NEXT 1 [375] 

230 REM [272] 

240 REM ************************* Hauptpro [2981] 

g ramm ****************************** 

250 REM [272] 

Lisiing Kalender 


260 MODE 2 [513] 

270 PR I NT"K al enderprogramm [2757 ] 

j j j " 

280 PRINT [361] 

290 PRINT"Zur Ausgabe eines Jahres muss de [5475] 

r 1.1. des Jahres eingegeben werden !" 

300 PRINT [361] 

310 PRINT"Geben Sie bitte das gewuenschte [3894] 

Datum ein : " 

320 PRINT [361] 

330 PRINT" Tag : Monat : [3329] 

Jahr (1-9999) 

340 PRINT [361] 

350 WHILE fehl er< >1 [ 1283] 

360 LOCATE 13,9:PRINT" [2062] 


370 LOCATE 13,9:INPUT,tage:LOCATE 29,9 [4132] 

:INPUT"",monat: 

LOCATE 54,9:INPUT"",jahr 

380 GOSUB 480 [885] 

390 WEND [390] 

400 PRINT [361] 

410 ta$="n" [756] 

420 IF tage=1 AND monat=l THEN GOSUB 620 [1659] 

430 IF ta$="n" THEN LOCATE 1,11:PR I NT"Der" [13240] 

;USING" ;tage;:PRINT" ";mna$(monat);" 

im ";schalt$;jahr;“ ist ein ";wtn$(sp5);". 

":PRINT:PRINT"Weiter mit d 
er Leertaste ! ":GOSUB 1010 


Ltsting Kalender 
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MD/DD 

MD/HD20 

CD/SD 


Y STAR-DIVISION 

Programme für CPC 


Textsystem ! 
Textverarbeitung • Adreßver- 
waltung • Grafikprogramm • 
DFÜ-Programm • Zeicheneditor • 
Install-Programm! 

Möglichkeiten: 

Trenn vorschlage • Zeilenbreite frei wählbar 

• Wordwrap • Blocksatz • Flattersatz • Zen¬ 
trieren • Blockoperationen • Kopf- und Fuß¬ 
texte • Suchen und tauschen • Serienbriefe 

• Grafik und Text mischen • u.v.m. 

3" Diskette nur DM 98,-- 


Der Marconi RB2 Trackerball, 
jetzt auch für Ihren CPC. Mit 
eigenem eingebauten Prozes¬ 
sor. Im Lieferumfang enthalten 
das hervorragende Grafikpro¬ 
gramm EASI-ART von Micro- 
draw, mit vielen Besonderhei¬ 
ten und allen notwendigen Uti¬ 
lities! 

komplett für nur DM 298,-- 
Super !! 

Trackerball RB2+ Easie-Art 
+ Stop Press für CPC 

Paketpreis 448,- 


Das universelle Datenverwal¬ 
tungsprogramm für alle CPC- 
Rechner! 

Egal ob Sie Ihren Verein, Ihre Schallplat¬ 
ten etc. verwalten wollen. DATEI-STAR ist 
das richtige Programm dafür I 

3" Diskette nur DM 98,-- 


Wir haben für Sie 

PC 1640: r 

MD/SD 1.899,- | 


E/U/DU 

CD/HD20 3.199,-- 
ECD/SD 2.899,- 
ECD/DD 3.199,- 
ECD/HD20 3.799,~ 

PCW8256 999,- 

PCW8512 1.299,- 
PCW9512 1.699,~ 
CPC 6128 grün/color 
799,-/ 1.099,- 

CPC 464 grün/color 
399,- / 699,- 

Drucker: 

• LQ 3500 899,- 

• LQ 5000 1.399,- 

•DMP2160 499,- 

•DMP3160 599,- 

• DMP 4000 899,- 


AMSTRAD eingekauft 


Neu!! 

AMSTRAD PC 2000 

PC2086SD12MD 2.499,- 
PC 2086SD14CD 2.999,- 
PC 2086 DD12MD 2.999,- 
PC2086DD14CD 3.499,- 
PC 2086 HD12MD 3.699,- 
PC2086 HD14CD 4.199,- 
PC2286DD12MD 3.899,- 
PC 2286 DD14CD 4.399,- 
PC2386HD12MD 9.999,- 


PC 1512: 

MD/SD 1.399,- 
MD/DD 1.699,-- 
CD/SD 1.799,-- 
CD/DD 2.099,- 

Port.-PC 512: 

3,5" Laufw. 1.699,-- 
2 Laufw. 1.999,-- 
Laufwerke: 

FD1 (CPC) 299,- 
FD2, FD3.FD4.FD5 
je 449,-- 

DD1 499,- 

Schnittstellen: 
CPS8256 (RS232) 
198,-- 

CPC RS232 198,-- 
CPC (RSi.D.) 148,~ 
MP2 129,-- 

Neuü VGA-Monitore 
PC 12 MD 499,-- 
PC14CD 999,- 


PROW ORT • Text Verarbeitung mit Maflmcr 
und Rechts ehre sbkontrcdlc • dtsch. Handbuch 
3’ Diskette 6128, Joyce (CP/M+) je 219,-- 
PROTEXT für CPC 464. 664,6128 
3-Disk. 94,-- EPROM 124,» 
MAXAM ■ Komplettes Z80 Entwicklungs- 
jytem • Asseinbler/Disassemblcr/Monitor 

3" Disk. CPC 464.664. 6128 94,-- 

EPROM 124,-- 

MAXAMII 6128, Joyce 239,-- 

PROSPELL • Rcchlschreibepriif. für Loco- 
Script: dtsch. Vers. /engl. Vera. 70,--/ 50,-- 
Deutschcs Handbuch für 
Protext / Maxam (CPC) 19,80 


Druckerkabel CPC's 39,•• 

Monitor Verlängerung CPC 29,50 
Zweitlaufwerke für 664, 6128: 
3"-Laufwerk 298,•• 

3,5"-Laufwcrk 398,-- 

51/4"-Laufwerk 448,-- 

Diskettenbox 3"/3,5" 40 39,80 

Diskettenbox 3"/3,5" 80 49,80 

Joystick Compet. 5000 39,-- 

Joyslick Schneider 39,-- 

Etiketten (Zweckform) 

3,5", endlos (150 St.) 16,-- 

Abdeckhauben: 

Konsole 464, 664, 6128 jel9,80 

Monitor grün, color je29,80 

DMP 2000/3000 jel9,80 

Flopp. DD1, FD1, Vortex jcl6,80 

Datenrekorder (664, 6128) 89,» 
Datenfernübertragung: 

Dataphon 21 S 278,-- 

Dataphon 21-23 S 378,-- 

Anschlußkabel 68,~ 

Treibersoftwarc 58,-- 


ROMBOX für CPC • ROM-Stcckplatzer- 
weiterung ■ 8 ROM Sieckplatze • ROM's belegen 
keinen Speicherplatz, somit ist die ROMBOX die 
ideale I lurdwsteerwcitening für Sie • 

CPC 464, 664, 6128 118,-- 

VIDI für CPC, Joyce und PC 

• hervorragender Videodigitizer • mit Controller • 
mit deutschem Handbuch • 

CPC 348,-- Joyce 378,-- 
PC (IBM-Komp.) 448,-- 


andbücher deutsch 

Stop Press Joyce 19,80 

Mini OfTice 11 (CPC) und 
Mini OfTice Profess. je 29,80 

Grafpad 3 • 64/256 k Erweiterung dk'tronics • 
Mouse Elektrik Studio • Lightpcn Elektrik Studio 
AMX Mouae • AMX Seiten-gestalxi • I.ightprn 
dk’trcnica • uvtn. ]9 gQ 

Farbbänder 

N1XJ401 14,80 StarNlVLCiO 24,80 
DMP 200CV2160/300CV3160 19,80 

LQ 3500 29,80 l.Q 5000 29,80 


in deutsch! 

■ Diamant von Rabenfels (Graphic) 
•Drachenland (Text) 

• Reise durch die Zeit (Text) 

• Sherlock Holmes (Graphic) 

• Auftrag in der Bronx (Graphic) 

• Insel der Smaragde (Text) 

• Das Pharaonengrab ( 

je Kassette DM 39,- 

je Diskette DM 49,- 


Neu! Mini Office II 

Der absolute Renner in Groß¬ 
britannien Preisgekrönte Ge¬ 
schäftssoftware des Jahres 1986 
und 1987! Mit engl. Handbuch 

• Textverarbeitung 

• Datenbank 3"-Diskette 

• Geschäftsgraphik 

• Etikettendruck 

• Tabellenkalkulation 

für CPC 464. 664.6128 DM 98,- 


• Das bewahrte Tabellen- j 0 i zl auc h für CPC’sl 

kalkulationsprogramm lür . erlaubt den Anschluß ihres 
Ihren CPC 6128 CPC's an den BTX-Rechner 

199,— der Bundes-Post I 

398 ,- 


CPC - Renner ! 


für CPC 

• Steuerung des Computers 
über den Bildschirm • mit 
hervorragendem Grafikpro¬ 
gramm • ein Muß lür jeden 
CP C-Besitz er I 

nur 278,- 
Handbuch deutsch 
dazu 29,80 


Extra I Jede Menge neue 
Fondsl 129,— 


für CPC nur 179,- 


• Das relationale Datenbank¬ 
system von Mark! S Technik 
für Ihren CPC 6128 

199,- 


Wenn Sie Besitzer eines 
Schneider/AMSTRAD CPC 
und eines DMP 2000 sind, 
haben Sie mit dem Dart- 
Scannor die Möglichkeit. 
Bilder und Grafiken in Ver¬ 
bindung mH einem korrpl. 
Grafikprogramm in den 
Computer einzulesenI Mit 
deutscher Anleitung I 
für CPC 464. 664,6128 

nur 249,- 

Adapter CPC 6128 39,- 


CPC 464-664 
CPC 6128 
PCW 8256-8512 
CTM644 
CTM640 
GT 64/65 
PC 1512/1640 
Monitor CM/MM 
GA-Monitor 


je 29.80 

29.80 

29.80 

19.80 
19,80 

je 19,80 
je 29.80 
je 19.80 
19,80 


für CPC 464/664/6128: 

ADRESCOMP 58,- COMFORM 
DATENREM 68,- ETATGRAF 
FAKTUREM 78,- FIBUCOMP 
FIBUKING 136,- KALKUREM 
LAGDAT 68,- PROFIREM 
TEXTKING 78.- VOKABl 


Dm Diskeltnkopitrprogramm der Superlative 
für den Schneider CPC 464, 664, 6128 und 
Joyce! Mit Update-Service! 

3" Diskette für nur 

CPC's 65,-- Joyce 85,-- 

Mastercopy 

Ähnlich Supercopy ! DM 69,90 


dk'tronics Produkte für CPC 


VAN DER ZALM Software 


Supercopy 


ROMBO Produkte | 


Arnor Software i 


ÜPÜ 


I 


1 


Zubehör 


AMX-Mouse 


CPC 

464, 664, 6128 


Alles für Ihren 


DATEI-STAR 


148,-- 

98,-- 

68 ,-- 

98,~ 

168,- 

348,- 

378,-- 

128,— 


348,- 

378,-- 

148,-- 

98,» 

168,» 

119 ,-- 

39,-- 


Scanner 


Dart 


Speech Synth. (ROM) 
Speech Synth. (Kas.) 
Lightpcn (Kas.) 
Lightpcn (ROM) 

64k Erweiterung 
256k Erweiterung 
256k Silicon Disk 
Uhrenmodul (neu!!) 


für 464/664: 


für 6128: 


256k Erweiterung * 
256k Silicon Disk * 
Speech Synth.(ROM) * 
Lightpen (ROM) * 

64k Silicon Disk * 


Uhrenmodul (neu!!) * 
Adapter (alle Module *) 



















































Mini Office 


Professional 


CnPUTER-ELEKTROMK 


Joyce-Zubehör 


Schaltplan 8256/8512 29,80 

iox3" Disk. CF2 MAXELL 89,-- 

iox Noname Disk. 69,-- 

10x3” Disk. CF2 DD 148,- 

Joystick Quickshot II 19,80 

Joyst. Compet. Pro sooo 39,80 

Gerdes Maus • rs 232 erforderlich • 
mit Grafikprogramm 178,— 

RS 232 (Schnittstelle) 198,— 

Diskettenbox (2x40 Disk.) 39,- 

Farbband für Drucker 24,80 

Farbband für PCW9512 19,80 
dto. jedoch Textilfarbb. a.A. 

Bildschirmfilter (antirefiex) 59,- 

200 Endlosetiket. (70x70) 16,- 

Verlängerung (Druck..i2V) 68,-- 

Typenraddrucker 698,- 

Druckertreiber 39,-- 

Diskettenlaufwerke 
2x80 Tracks • 720 KB • anschluß¬ 
fertig • Metallgehäuse • 

3,5" 348,- 

L 51/4" 448,- 


Alles für Ihren 


Joyce 

PCW 8256, 8512, 9512 


Public Domain Software 


Hl Elektric Studio m 


PCW 8256/8512/9512 
Preisgekröntes Zubehör aus Eng¬ 
land! 


CPC+Joyce 


Ober 1000 Public- 
Domain Programme 
Jede Disk. 20,- 
Liste anfordern! 
(Schriftlich!) 


PD mit deutschem 

Handbuch 

Nr. 1: Pascal-Compiler 
(JRT) 

Nr. 2: Z80 Assembler. Dis¬ 
assembler und 
Linker 

Nr.3: Interpreter für Lisp 
u. Prolog 

Nr.4: C-Corrpiler (Small 
C) 

Nr.5: Forth-83 

Nr.6: CP/M-Hitfsprogr. 


Nr.7: CPC Arbeitsbuch 

Nr.8: Cave Adventure 

Nr.9: CPC Disk Utilties 

Nr. 10: BizBasic 

Nr.1l: BasicE-Compiler 
Nr. 12: Inline Generator 
Nr. 13: Progr. aus Joyce 
programmieren 


Nr.14: Prg. CPC-Dateiverw. 
Nr. 15: WordStar-Utilities 
Nr. 16: Lrteraturverwaltung 
für dBase II 

Nr.17: C-Interpreter - inter¬ 
aktiv C lernen 
Nr.18: MacroPack / Z80 


Nr.19: Telekommunikation 
mit MEX 

Jede Disk. 30,~ 

Neu: (keine PD) 

WS-T uner für Word-Staf 

nur DM 49,80 


Mehr als 700 Disk, mit 
über 10000 Program¬ 
men sofort lieferbar! 
Liste anfordern! 
(Schriftlich!) 

Jede Disk. 8,~ 
PD-IOer Blöcke: 

4 Blöcke mit jeweils 10 
hervorragend zusammen¬ 
gestellten Diskettenl 

Block 14 je 68,- 


PCW 8256/8512/9512 
Joystick-Controller * 69,- 

Joystick-Contr.+Sound* 129,- 

Echtzeituhrenmodul* 129,- 

256 k Erweiterung 248,- 

Adapter (*) für engl. Prod. 39,- 


Software für Joyce 


Arnnr: 

T asword 8000 

148,« 

PROWORT 

219,- 

Prospell engl. 
Vereinsverwalt. 

50,- 

198,- 

PROSPELL 

79,- 

Headline 


MAXAMII 

239,- 

(Layoulprg.) 

198,- 


RH-DAT 

(Datenbank) 

98,- 

ADRESCOMP 58,- 

Turbo Pascal E. 

225,« 

COMFORM 

48.- 

DR-Graph 


DATENREM 

68,- 

(Grafikprg.) 

198,- 

ETATGRAF 

58,— 

DR-Draw 


FIBUKING 

136,— 

(Zeichenprg.) 

198,- 

LAGDAT 

68,— 

Datamat (Daten- 


PROFIREM 

136,- 

banksyst.) 

99,- 

VOKABI 

58,- 

Prompt 


FAKTUREM 

78,- 

(Dateiprg.) 

69,- 

KALKUREM 

78,- 

Prompt Druck 


■rTTTTXIWI 

(Masken) 

39,- 



MICA (CAD) 

198,- 

LocoScript 2 

148,-- 

Vokabel trainer 

59,- 

LocoMail 1 

128,- 

Verbentrainer 

49,- 

LocoMail 2 

211,— 

Datamat 

99,- 

LocoSpell 2 

168,- 

Turbo Adress 

98,- 

L.Spell+Mail 

248,- 

Turbo Faktura 

148,- 



varDat 

199,- 



Basic Compiler 

139,- 

MulDplan 

198,- 

Comform Bank.For. 

59,50 

SDBase II 

198,- 

Comac Litbox 

148,- 


Supercopy: 

Diskettenkopierprogramm der 
Superlative für Ihren Joycel 
Mit preiswertem Update- 
Service. 85,— 

COMAC-Kasse Plus: 

Komfortable Einnahmen- 
Überschu ßrechnung. 

168,- 

CARAT-Kasse Plus: 

Einnahmen/Ausgaben Ober¬ 
schußrechnung. 

168,- 


Hansesoft: 


Schreiblehrgang: 

10-Finger-Schreiben lernen 
auf der Schrebmaschine und 
dem Computerl 

89,- 

PSE2: 

Lernen Sie das Periodensy¬ 
stem der chemischen Ele¬ 
mente kennen. Ein irres Pro¬ 
gramm zum Erlernen eines 
“trockenen" Stoffesl 

129,- 


Fleetstreet 

Editor 


Dieses Programm macht 
aus Ihrem Joyce eine 
richtige Desktop-Pub- 
lishing-Maschine. 

DM 198,- 


Seitengestalter 
Stop Press 


Das sensationelle Pro¬ 
gramm im Bereich des 
Desktop-Publishmgs für 
ihren Joyce. Wie viele 
kandere werden auch Sie 


AMX-Maus Joyce 


| Steuerung des Computers 
über den Bildschirm • Mit 
AMX-Desktop-Programm ■ 
Telefonverzeichnis • Notiz¬ 
buch • Kalender • Papierkorb 
nur 298,- 
Adapter 39,— 


MasterPaint 78,- 
Paketpreis 338,- 

Adapter 39,- 


Ermöglicht professionelles 
Desktop-Publishing auf 
Ihrem PCW 8256/8512/9512 

für nur 118,— 

... kompl. mit AMX-Maus 

_348,- 

Deutsche Übersetzung 

zu engl Programmen 

je 29,80 > 


FISKUS 1987-1988: 

Lohnsteuer-Jahresausgleich 
für alle lohn- und einkommens¬ 
steuerpflichtigen Einkommen 
von Arbeitnehmern. Jährliches 
Update gegen Kostenbetei- 
ligungl 139,- 


STATISTIK-STAR 


Grafik- und Statistikpro¬ 
gramm I 

Erstellen von Businessgrafi¬ 
ken • statistische Auswer¬ 
tungen • Edrtierfunktionen • 
menueorientierte Bedienung • 
Grafik-Ausdruck auf komplette 
DIN A4- Seite ■ ausführliche 
Dokumentation 

98,- 


... PCW 8512, 9512 


STAR-MAIL 


Erweiterung von Loco- 
acript I 

Locoscript-Texte können auf 
Fremddruckern ausgedruckt 
werden ■ Erstellen von 
Serienbriefen • u.v.m. 

98,- 


DATEI-STAR 


Datciverwaltings- 
aystem I 

Einfache Bedienung durch 
PULL-DOWN Menues • frei 
definierbare Eingabemaske • 
1400 Zeichen pro Datensatz • 
frei definierbare Such-, Selek¬ 
tier- und Druckmaske • frei 
definierbare Listen- und Eti¬ 
kettendruckmaske • u.v.m. 

98,- 


MAILING-SYSTEM 


Softwarepaket: STAR¬ 
MAIL + DATEI-STAR I 

189, 


STAR-BASE 


Datenbanksyatem I 

Aufbau: Maskengenerator, 
Druckmaskengenerator. 
Systemdatei, Menuegenera- 
tor, Tastaturanpassung, 
Druckeranpassung. Pro¬ 
grammkonfiguration • PULL- 
DOWN-Menues • Eingabe¬ 
maske über 9 Bildschirm¬ 


seiten • 100 Datenfelder 
pro Eingabemaske • 
kompletter Report¬ 
generator • u.v.m. 

198,- 

Auftragsbearbeitung mit: 

• Fakturierung 

• Lagerverwaltung 

• Mahnwesen 

• Datenverwaltung 

• und Dienstprogr. I 

298,- 

Professionefle 
Finanzbuchhaltung I 
Einfache Bedienung 
und hohe Absicherung 
gegen Bedienungs¬ 
fehler' u.v.m. 

298,- 


Serienbrieferstel- 

lung! 


Mergln Maker 


Joyce-Scanner 


Schneider Hardware 

Euro PC MM 12 1.298,- 

Euro PC CM14 1.798,- 

Tower PC 201 MM12 2.498,- 

TowerPC201 CM 14 2.998,- 

TowerPC 202 MM12 2.798,- 
TowerPC 220 MM12 3.498,- 
TargetPC 5.998,- 

PC 2640 MM2640 4.998,~ 

PC 2640 EM2640 5.998,- 

Porsonal FAX SPF100 2.398,- 


Joyce-Spiele 


Batman 59.- 

Strike Force H. 69.- 
S.A.S. Raid 59,- 
Tomahawk 79,- 
Cf. Chens 88 ' 69,- 
Colos. Chess 69,- 
Football Fort. 69.- 
Knighf Orc 69,- 
Maich Day 2 49.- 

ACE 69- 

Colos. Bridge 53.- 
Tetr® 65.- 

i8ounder 49.- 


Bridge Player 59.- 

Fairlighl 59,~ 

F.B. Boxing 69,~ 

PSISTrading 49,-- 

Jewels Darkn, 69,- 

Head over Heels 49,~ 

Pawn 89,-- 


Karl-Heinz Weeske • Potsdamer Ring 10 • 7150 Backnang 
Telex 724410 weeba d • Kreissparkasse Backnang (BLZ 
! 60250020)74397 • Postgiro Stgt. 83326-707 • FAX 60077 ; 


: Zahlung per Nachnahme oder Vorauskasse (Ausland per Scheck) j 
Versandkostenpauschale (Inland 6,80 DM /Ausland 16,80 DM). 
Infoanfragen werden nur noch mit beigelegtem frankierten/adreß- : 
sierten Umschlag bearbeitet! 

07191/1528-29 od. 60076 
















































440 RUN 

[243] 

770 

coa$(1n1)=" 

[ 1222 ] 

450 REM 

[272 ] 

780 

coe$(ini)="" 

[ 794] 

460 REM ********************* Berechnen de 

[4160] 

790 

NEXT in1 

[348] 

s Wochentages *********************** 


800 

FOR ms=1 TO 12 STEP 4 

[607] 

470 REM 

[272 ] 

810 

PRINT #bd,USING" \ \ 

[6524] 

480 fehler=0 

[315] 

\ 

\ VN \ 


490 IF (jahr>=10000)OR(jahr<=0)OR(monat>=1 

[4004 ] 

\";mna$(ms);mna$(ms+l);mna$(ms+2);mna$ 


3)OR(monat<=0)0R(tage<=0) 


(ms+3) 


THEN RETURN 


820 

FOR wt=l TO 7 

[ 597 ] 

500 dlf=10000-Jahr:spl=FIX(dif/4):sp2=spl* 

[2966] 

830 

FOR monat=ms TO ms+3 

[ 593 ] 

4 


840 

IF monat=ms THEN PRINT #bd,LEFT$ 

[1826] 

5X0 IF sp20dif THEN zus = 0: schal t$=" Jahr" 

[5176] 

(wtn$(wt), 2 ); 


ELSE zus=13:schalt$="Schaltjahr" 


850 

tage=0 

[802] 

520 IF tage<=anzt(monat+zus+l)-anzt(monat+ 

[2108] 

860 

tage=tage+l 

[ 584] 

zus) THEN fehler=X 


870 

GOSUB 480 

[885 ] 

530 spl=spl+dlf+ 4:sp3=(7-(spl-((FIX(spl/7) 

[2562] 

880 

IF sp5< >wt THEN 860 

( 184 7 ] 

)*7) ) )-l 


890 

IF tage=l THEN coa$(monat)="":co 

[3415] 

540 sp4=anzt(monat+zus)+tage 

[2849 ] 

e$(monat)=" 


550 sp5=(sp4-((FIX(sp4/7))*7))+Sp3 

[1574] 

900 

PRINT #bd,coa$(monat); 

[1526] 

560 IF sp5 > 7 THEN sp5 = sp5-7 

[ 592 ] 

910 

FOR k=1 TO 5 

[ 1081] 

5 70 IF sp5 <1 THEN sp5=7 

[ 790 ] 

920 

IF tage >28 THEN GOSUB 480 

[1978] 

580 RETURN 

[ 555 ] 

930 

IF fehler=l THEN PRINT #bd,USI 

[3579] 

590 REM 

[ 272 ] 

NG"###";tage; 


600 REM **************************** Jahre 

[4353] 


ELSE PRINT #bd," "; 


sausgabe **************************** 


940 

tage=tage+7 

[ 594 ] 

610 REM 

[ 272 ] 

950 

NEXT k 

[ 373] 

620 PRINT"Wollen Sie eine Kalenderausgabe 

[4979] 

960 

PRINT #bd,coe$(monat); 

[1566] 

dieses Jahres ? (j/n)" 


970 

NEXT monat 

[511] 

630 ta$=" " 

[ 359] 

980 

PRINT #bd 

[ 790] 

640 WHILE ta$< >"j " AND ta$o"n" 

[1852] 

990 

NEXT wt 

[462] 

650 ta$=INKEY$ 

[628] 

1000 

NEXT ms 

[403] 

660 WEND 

[390] 

1010 

ta$= " " 

[359] 

670 IF ta$="n" THEN RETURN 

[1818] 

1020 

WHILE ta$< >" " AND bd < > 8 

[1770] 

680 LOCATE 1.11:PRINT"Ausgabe auf Bildschi 

[6245] 

1030 

t a$ = IN KEY$ 

[628] 

rm oder Drucker ? (b/d) 


1040 

WEND 

[390] 

690 ta$= " " 

[ 359 ] 

1050 

RETURN 

[ 555 ] 

700 WHILE ta$< >"b" AND ta$<>"d" 

[1721] 

1060 

DATA 0,31,59,90,120,151,181,212,243.2 

[2472] 

710 ta$=INKEY$ 

[ 628] 

73,304,334,365 


720 WEND 

[390] 

1070 

DATA 0,31,60,91,121,152,182,213,244,2 

[2860] 

730 CLS 

[91] 

74,305,335,366 


740 IF ta$='' b" THEN bd = 0 ELSE bd = 8:PRINT"A 

[4517] 

1080 

DATA Montag,Dienstag,Mittwoch,Donners 

[3838] 

usgabe auf dem Drucker !":WIDTH 80 


tag , 

Freitag,Samstag,Sonntag 


750 PRINT #bd," Kalen 

[ 355 1 ] 

1090 

DATA Januar,Februar,Maerz.Apri 1 ,Mai ,J 

[4120] 

der des schalt$;"es";jahr 


uni , 

Juli.August,September 


760 FOR in i =1 TO 12 

[1177] 

1100 

DATA Oktober,November,Dezember 

[1480] 

Listing Kalender 


Listing Kaiender 




Ein ordentliches Listing auf dem Drucker 


Immer wieder ärgert man sich über Listings, die lieblos 
und ohne jede Übersicht auf dem Drucker ausgegeben 
werden. Lister hilft Ihnen, Format in Ihre Listings zu 
bringen. 


Nach dem Starten des Programmes werden Sie aufgefordert, 
den Namen des Programms einzugeben. Dieses muß vorher 
mit SAVE“NAME“,a abgespeichert worden sein. Als näch¬ 
stes können Sie den linken und den rechten Rand einstellen 
sowie eine Überschrift und das Datum eingeben. Wenn dies 
geschehen ist. lädt der Computer das im ASCII-Format abge¬ 


speicherte Programm ein. formatiert es auf die richtige Brei¬ 
te und druckt es aus. Ausgedruckt wird auch, um welche Sei¬ 
te es sich handelt, was beim späteren Eingeben des Listings 
von anderen sehr nützlich sein kann. 

Selbstverständlich werden nicht nur Basic-, sondern auch 
Assembler- und Pascal-Listings von diesem Programm ver¬ 
arbeitet. Einzige Voraussetzung ist jedoch, daß sie im 
ASCII-Format abgespeichert worden sind und keinerlei 
Steuerzeichen enthalten. 

(Jens Ehlert/rs) 
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10 ' *********«*********, 

20 ' * LISTER * 

30 ‘ * geschrieben von * 

40 • * JENS EHLERT * 

50 ' * (c) by DMV * 

60 ' ********************* 

70 GOSUB 340 
80 • 

90 'Auslesen der Datei 
100 ' 

110 s=l 

120 mz=80 

130 ff$=CHR$(12):WIDTH 255 
140 OPENIN ""+d$ 

150 WHILE NOT EOF 

160 IF z =0 THEN PRI NT#8,dummy$;STR ING$(80, 
"="):z=3: 'Kopfzeile drucken 
170 LINE INPUT#9,a$ 

180 GOSUB 260 

190 IF z >mz THEN FOR i = l TO mz+5-z :PRINT#8 
: NEXT:PRI NT#8:PRI NT# 8,STRXNG$(80, " = ") ;TAB( 
36);"Seite : " s : z = 0:PRINT#8,ff$:s = s+l: ' Fu 

ssnote drucken 
200 WEND:CLOSEIN 

210 IF ZOO THEN FOR 1 = 1 TO mz +5-z : PRINT#8 
:NEXT:PR INT#8:PRINT#8.STRINGS (80, " = " ) ; T AB ( 
36);"Seite :"s:z=0:PRINT#8,ff$:s=s+l 
220 END 
230 ' 

240 ’2eile auseinandernehmen 
250 ' 


Listing Lister 


[657] 

[509] 

[2112 ] 
[341] 

[ 667 ] 

[ 657 ] 
[976] 
[117] 

[ 603] 
[117] 
[288] 
[345] 

[1585] 
[581 ] 

[1840] 
[5096] 

[1529] 
[ 929 ] 
[6743] 


[ 1209 ] 
[5943] 


[ 110 ] 

[117] 

[ 1426 ] 
[117] 






260 w=INSTR(a$," “):n=VAL(LEFT$(a$,w)):a$= 
RIGHT$(a$,LEN(a$)-w):PRINT#8,SPC{1r);USING 
"##### •' ;n; : p= l 

[6102] 


270 IF LEN(a$)> r r — 1r-5 THEN PRINT#8,LEFT$( 
a$,rr-1r-5):a$=STRING$(1r+6," ")+RIGHT$(a$ 

.LEN(a$)-(rr-1r-5)):GOTO 280 ELSE PRINT#8, 
a$:z=z+l:GOTO 300 

[7035] 


280 z=z+l 

[ 702] 


290 IF LEN(a$)>rr + l THEN PR I NT#8,LEFT$(a$, 
rr+1):a$ = STRING$(1r + 6," ”)+RIGHT$(a$,L E N(a 
$)~ r r-1):GOTO 280 ELSE PRINT#8,a$:z=z+l 

[6294] 


300 RETURN 

[ 555 ] 


310 ' 

[117] 


320 'Titelbild/Eingabe 

[1090] 


330 ' 

[117] 


340 MOOE 2:PRINT STRING$(80,"*"):FOR i=2 T 
0 8:LOCAT E 1,i :PR I NT"*"; :LOCATE B0,1:PRINT 
i :NEXT:PRINT STRING$(80,"«" ) 

[7145] 


350 LOCATE 37,3:PRINT"LI STER":LOCATE 36,5: 
PRINT"(c) by DMV":LOCATE 25, 7 : PRINT"Li sti n 
g mit dem gewissen Etwas" 

[ 7005 ] 


360 LOCATE 10,13:INPUT"Name des Programmes 
”;d $:IF d$=""THEN 360 

[ 5066] 


370 LOCATE 10 , 15 : INPUT " Li n ke r Rand (>6) 
lr:IF 1 r < 6 THEN 370 ELSE lr=INT(lr)-5 

( 4381 ] 


380 LOCATE 10,17:INPUT " Rechter Rand (<79) 

"; rr:IF rr>78 THEN 380 

[2910] 


390 LOCATE 10,19:INPUT"Kommentar zum Progr 
amm kk$:LOCATE 10,21:INPUT " Da tum :";da$ 

[7119] 


400 dummy$=STRING$ ( 80, "):kk$=d$+" : "+kk 

[ 7706 ] 


$: kk = LEN ( kk$ ): MI 0$ ( dummy $ ,INT (4 0-kk/2),kk 
)=kk$ : MID$ ( dummy $ ,80-LEN(da$),LEN(da$))=da 


410 LOCATE 17 , 24 : PRINT " Bitte Drucker berei 
tmachen und eine Taste druecken“:CALL &BB0 

[6712] 


420 RETURN 

[ 555 ] 


Lisfing lisler 



PROWORT - Professionelle Textverarbeitung 

für Amstrad Joyce 8256/8512/9512, CPC 6128 für IBM PC, Atari ST, Commodore Amiga 


PROWORT - 


das äußerst leistungsstarke 
T extverarbeitungsprogramm 


* unglaubliche Geschwindigkeit und Flexibilität zu dem 

* deutsche Rechtschreibeprüfung kurzfristigen 

* umfangreiches deutsches Handbuch Sonderpreis 

* verschiedene Disketten-Hilfsprogramme von 

* MailMerge-Funktionen usw. D.M. 199,-* 

Englisches Wörterbuch auch erhältlich, zu dem zusätzlichen Preis von D.M. 50,-. 


PROWORT 

FILER 


PROWORT 

OFFICE 


Das menügesteuerte Datei-Management 
System mit einem sehr ausgefeilten Datei- 
Sortier-Programm. Preis: D.M. 89,- * 

enthält alle Filer-Optionen sowie auch ein 
Faktura-Programm. Preis: D.M. 119,-* 


FILER & OFFICE (mit deutscher Gebrauchsanleitung) arbeiten unter PROWORT 

SONDERANGEBOT - PROWORT & PROWORT FILER D.M. 275,-* 

PROWORT & PROWORT OFFICE D.M. 299.- * 

PROSPELL Rechtschreibeprüfungsprogramm 

(deutsche Version) für LOCOSCRIPT 1 . Preis: D.M. 70,-* 

Versand erfolgt: V-Scheck anbei . unverbindliche 

per nachnahme Preisempfehlung 


Amor (Deutschland) Ltd. 
Hans-Henny-Jahnn-Weg 21 
2000 Hamburg 76 
Tel: 040 22 49 42 


Die Produkte sind auch 
In guten Fachhandel erhältlich. 


PROWORT (English Version 4) 

Prowort is the complete Professional word processor for IBM PC 
compatible Computers, Atari ST and Amiga - the result of over four 
years of development. Prowort has all the features you would expect 
from a good word processor - many text editing commands, print 
commands, spelling checker and mailmerge. What you might not 
expect though, is the refinement and thought that has been put into 
the program - the logical keystrokes and commands, the clear layout, 
the speed and power ... all go towards making Prowort ideal for the 
novice or the experienced user alike. 


Some quotes from reviews: 


(Prowort is called Protext in the UK.) 


"Protext is probably the most powerful word processor on the Atari ST" 

ST USER 

■Protext deserves to be the System by which all other word processors 
are judged ... Arnor has given the market a superb product" 

YOUR COMPUTER 

"Arnor's Protext 4 Is just about unbeatable ... this really is an excellent 
progranT PC AMSTRAD 

Prowort includes within it keyboard drivers for 10 languages, Including 
English, German and Danish, so all characters are immediately 
available, including ä, ö, ü, Ä, Ö, Ü, ß, c, 0, ee, /E. 

ial Offen FREE German Dictionary - Save £30! 


Prowort v4 with German and English dictionaries: £90 (normally £120) 

Price includes post + packing. 

Payment by Eurocheque or Mastercard/Visa. 

Amor Ltd, 611 Lincoln Road, Peterborough, PE1 3HA. England. 

Tel: 0044 733 68909. 


Sofovare fürAeaner... 
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Save our Text 

Textretter 1.0 

für CPC 6128 (CP/M 3.0) 

Möglicherweise kennen Sie die Situation: Sie arbeiten 
unter CP/M Plus mit Turbo Pascal, testen ein noch nicht 
abgespeichertes Programm und befinden sich nach ei¬ 
nem BDOS-Error plötzlich im Kommando-Modus von 
CP/M. Oder nach einem Programmlauf meldet sich der 
Rechner nicht mehr zurück. 





Immtw i.e 


aPlüamilBij 

0g 35 34 65 34 28 20 31 31 F6 FE 3? Bfi 7F 7F Bl 13 

18 25 2C 81 00 01 08 25 2C B3 B2 B7 BE 3F IT 35 BS 

28 01 20 01 04 00 O0 88 B0 37 76 7FITFFFF7FFf 
30 00 08 10 18 Ö8 0C 90 06 37 37 21 36 27 37 2S 35 
28288028282806009F5FITFEFFFFESF4 

08 88 21 20 21 28 Ü 80 7F FF EF EE F7 F7 77 77 

78 01 80 21 28 81 96 C0 C8 5B M 25 26 F7 B7 45 44 

88 B7 EF TS F4 29 20 7F 7F FE FI BE FE BF BF 13 19 

98 3E 2E 83 65 98 88 BF EF F2 F2 BF BF FF FF B7 BF 

32 2ÄB3 67 00 88 8Ö88F6FEFFFFFFFTFFFF 
86 B£ 18 30 82 00 82 82 B7 FF 32 21 87 B712 ED 
60 E4 83 64 20 68 80 88 Df 5F FI FF FF Ff F7 EF 

28 20 60 BÖ 80 60 60 60 B7 F7 FF FF FT FF F? F? 

90 28 61 65 61 65 61 65 FT FF FF FF F7 FF F7 FT 

88 84 F6 FS 08 2C FS F7 D8 D6 66 6S B7 BF F6 ED 


Wenn Sie bereits eine solche Situation erlebt haben, wissen 
Sie sicherlich, daß sie meist mit dem kompletten Verlust der 
Daten endet. In vielen dieser Fälle läßt sich jedoch ein Daten¬ 
verlust mit dem Textretter verhindern. Die Grundlage des 
Programms ist folgende: 

Wie Sie sicher wissen, besitzt der CPC 6128 zwei Speicher¬ 
bänke zu je 64KB. Die erste Bank wird bei einem Reset ini¬ 
tialisiert und dadurch fast vollständig gelöscht. Da das Be¬ 
triebssystem im 6128 mit dem des 464 identisch ist und die¬ 
ser nur 64KB verwaltet, bleibt die zweite Speicherbank bei 
einem Reset vom Betriebssystem unbeachtet und behält ihren 
alten Inhalt. Nun befindet sich aber glücklicherweise genau 
in dieser zweiten Bank unter CP/M die TPA, die alle wichti¬ 
gen Daten enthält (die erste Bank beinhaltet das Betriebssy¬ 
stem und den Bildschirmspeicher). Dadurch ist es möglich, 
unter CP/M einen Reset auszulösen und anschließend unter 
AMSDOS die Daten, die noch gebraucht werden, aus der 
zweiten Speicherbank ’herauszufischen’. Und genau das ist 
mit dem Textretter möglich. 

Wenn Sie den Textretter einsetzen wollen, müssen Sie ihn 
natürlich erst einmal abtippen. Tippen Sie zuerst den Data- 
Lader ab, und starten Sie ihn. Er erstellt die Datei RET¬ 
TER. RSX, die die Maschinenspracheteile des Textretters 
enthält, auf Diskette. Danach tippen Sie das Hauptprogramm 
ein und speichern es unter irgendeinem Namen. Jetzt ist der 
Textretter einsatzbereit. Wenn Sie in eine der obengenannten 
Situation kommen und den Textretter einsetzen wollen, set¬ 
zen Sie den Rechner als erstes zurück. Dazu drücken Sie 
SHIFT,CONTROL und ESC, oder, falls dies nicht mehr 
funktioniert. Sie verbinden die Reset-Leitung am Expan¬ 
sionsport mit GND (nicht zu lange). Das funktioniert immer. 
Allerdings ist es natürlich nicht unbedingt ratsam, die zwei 
Kontakte einfach mit einem Draht zu verbinden. Schließlich 
kann man (frau) bei den schmalen Kontakten schnell verse¬ 
hentlich etwas kurzschließen. 

Deshalb ist es vorteilhaft, sich gegebenenfalls rechtzeitig ei¬ 
nen passenden Stecker zu besorgen und einen Reset-Taster 
zwischen die Anschlüsse 26 und 45 bei umlaufender bzw. 2 
und 40 bei alternierender Numerierung zu löten (dies kann 
auch bei anderen Gelegenheiten sehr nützlich sein). Auf kei¬ 
nen Fall darf der Reset durch Aus- und wieder Einschalten 
des Rechners geschehen, da dadurch alle Daten, die sich im 
Hauptspeicher befinden, vernichtet werden. Nach dem Reset 
starten Sie den Textretter, worauf dieser die Datei RET¬ 
TER.RSX nachlädt und sich dann mit dem Prompt ' = >’ 


meldet. Im Prinzip ist der Textretter ein Mini-Debugger, der 
stolze sieben Kommandos kennt: 

S (Search) Mit S können Sie die zweite Bank nach einer be¬ 
stimmten Zeichenfolge durchsuchen und somit den verlore¬ 
nen Text lokalisieren. Dazu geben Sie einfach ’S', gefolgt 
von der zu suchenden Zeichenkettc. ein, wobei Sie eine mög¬ 
lichst selten vorkommende Zeichenkettc verwenden sollten. 
Der Textretter gibt daraufhin alle Adressen, an denen er die 
Zeichenkette gefunden hat, aus. Syntax: S <String > 

D (Dump) Dieser Befehl dient zum Ausgeben eines Speicher¬ 
bereiches als Hex- und ASCIl-Dump. Dem Befehl kann die 
Adresse des ersten auszugebenden Bytes folgen. Diese und 
alle sonstigen Adressen sind Hexadezimal und ohne an¬ 
zugeben. Wenn die Startadresse angegeben wird, kann wei¬ 
terhin eine Endadresse genannt werden, an der der Textretter 
den Dump abbricht. Wenn Sie die Endadresse weglasscn. 
gibt das Programm 256 Byte aus. Tun Sie das gleiche mit der 
Startadresse, so macht der Textretter da mit dem Dump wei¬ 
ter, wo er beim letztenmal beendet wurde (nach einem Neu¬ 
start bei Adresse 0000). Syntax: D (< Start > (< Ende>)) 

K (Keep) Mit Keep können Sie einen oder mehrere Speicher¬ 
bereiche in eine Datei speichern. Dazu geben Sie nach ’K' 
einfach den Dateinamen und die Start- und Endadresse des 
Speicherbereiches an. Danach können noch mehrere Start- 
und Endadressen von Speicherbereichen folgen. Der Text¬ 
retter hängt alle angegebenen Speicherbereiche in der Rei¬ 
henfolge, in der sie angegeben sind, zusammen und speichert 
sie in der Datei ab. 

Syntax: K < Dateiname> <Start> <Ende> (< Start > 
<Ende> (<Start> <Ende> (...))) 

C (Cat) Was es mit C’ auf sich hat, können Sie sich sirher 
schon denken. Es gibt schlicht und einfach das DiskeLenin- 
haltsverzeichnis aus. Syntax: C 

A B Diese beiden Befehle dienen dem Wechsel des aktuellen 
Laufwerkes. Syntax: A 

Q (Quit) Diese letzte Kommando ist, wie der Name schon 
sagt, zum Verlassen des Textretters. Syntax: Q 
Zu beachten ist noch, daß bei allen Kommandos die Parame¬ 
ter durch Leerzeichen getrennt werden und keinesfalls durch 
Kommas. 

Damit ist das Programm wohl ausreichend erklärt. Bleibt mir 
nur noch. Ihnen zu wünschen, daß es nicht zu bald zum Ein¬ 
satz kommen muß. 

(Dieter Höhmann/cd) 
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für 6128 

r .- 



******************************** 




1020 ' 

***** 

***** 

1030 1 

***** 

Textretter 1.0 

er CPC 6128 

***** 

1040 

***** 

***** 

1050 

***** 

(C) MCMLXXXVIII 



***** 

1060 

***** 

***** 

1070 

***** 



PHOENIX 

***** 

1080 

***** 



SOFT 

***** 

1090 

***** LISTING 

1 

1100 

*************** 

***** 

ft*******«**»*«,***»: 


**********»****»***.»,»*,**«,**, 

1110 


[2143] 

[2143] 

[315] 

[ 1040] 
[315 ] 

[2207] 

[315] 

[661] 

[ 690 ] 
[913] 
[2143] 
[2143] 


1120 MODE 2 

1130 LOCATE 27,3:PRINT" PHOENIX S 
OFT" 

1140 LOCATE 32,5:PRINT" Textretter 1.0 " 
1150 FOR a=0 TO 79:KEY DEF a.l:NEXT 
1160 ON BREAK GOSUB 1740 

1170 IF HIMEM0 43FFF THEN MEMORY 43F F F : LOA 

D" retter. m-c" ,4A000:CALL 4A000 

1180 BORDER 8:PEN 1:PAPER 0 

1190 INK 1,21:INK 0,4:ed=-16 

1200 PAPER 3:PEN 2:INK 3,6 

1210 PRINT:PRINT 

1220 PEN 1:PAPER 0 

1230 PRINT CHR$(10)CHR$(11)" "CHR$(24); 
1240 LINE INPUT" = >",ein$:1$ = ein$: IF 1$=" " 
THEN 1220 ELSE GOSUB 1810 

1250 PRINT CHR$(24):w$ = UPPER$(LEFT$(i$ , 1 ) ) 

1260 i$=MID$(i$,2):GOSUB 1810 

1270 IF w$ ="D" THEN 1370 

1280 IF w$="S" THEN 1610 

1290 IF w$ ="K" THEN 1640 

1300 IF w$ ="Q" THEN PEN 1:PAPER 0:MODE 1:E 
ND 

1310 IF w$="C" THEN CAT:GOTO 1220 
1320 IF w$= " A" THEN ;A:GOTO 1220 
1330 IF w$="B" THEN :B:GOTO 1220 
1340 PRINT " "CHR$(160) " Error" 

1350 GOTO 1220 
1360 'Dump 

1370 WIN DOW #1,1,5,1,25 
1380 WIN DOW #2,6,59, 1,25 
1390 WINDOWÄ3,60,80,1,25 

1400 IF i$="" THEN st=ed+16:ed=st+240:GOTO 
1420 

1410 GOSUB 1760: st=i :IF 1$="" THEN ed=st+2 
40 ELSE GOSUB 1760:ed=i 

1420 LOCATE#1,1,VPOS(#0) : LOCATE«2, 1.VPOS(« 
0):LOCAT E# 3,1.VP0S(#0) 

1430 LOCATE 1,1 

1440 IF st <0 THEN st = st-48000+ & 7FFF+1 

1450 IF ed < 0 THEN ed = ed-48000 + 47FFF+1 

1460 S=INT(st/16)*16 

1470 e=INT(ed/16)*16:b%=0 

1480 FOR l=s TO e STEP 16 

1490 PRINT#1,HEX$(L,4) 

1500 FOR ad r=1 TO 1 + 15 
1510 !PEEK,ad r,@b* 

1520 PRINT#2,HEX$(bX,2) 

1530 PRINT#3,CHR$(1)CHR$(bX); 

1540 ad=ad+1:IF ad>47FFF THEN ad=44000 

:b1=bl+1:OUT 47FOO,bl 


1550 NEXT 

1560 PRINTF2:PRINT#3 
1570 NEXT 

1580 LOCATE 1,VPOS(#1):PR I NT 
1590 GOTO 1220 
1600 'Search 

1610 IF i$ < > " " THEN !SEARCH,i$ 
1620 GOTO 1220 
1630 'keep 


[513] 

[ 1427 ] 

[ 1293] 
[1805] 
[ 595 ] 
[4104] 

[2264] 

[528] 

[ 1855 ] 
[ 743] 

[ 958 ] 

[ 1 798] 
[4177] 

[ 1959 ] 
[ 1781 ] 
[999 ] 

[1432] 
[804] 

[1942] 

[2518] 
[ 1688 ] 
[1333] 
[1807] 
[ 359 ] 
[846] 
[1323] 
[1371] 
[1074] 
[3705] 

[2593] 

[3408 ] 

[611] 

[ 1 703 ] 
[2070] 
[314] 

[1423] 
[1414] 
[964 ] 
[1555] 
[ 1008 ] 
[ 743] 

[1640] 
[3117] 

[ 350] 

[ 320 ] 

[ 350] 

[ 1633] 
[359] 
[716] 
[478] 

[ 359 ] 

[ 182] 


Lisling Reiter 




1640 IF i$="" THEN 1720 ELSE ip=INSTR(i$," [3960] 
"):IF ip=0 THEN 1720 

1650 n$=LEFT$(1$,1p—1):i$=MID$(1$,1p+1):GO [1952] 
SUB 1810 

1660 IF 1$="" THEN 1720 ELSE OPENOUT n$ [2548] 
1670 GOSUB 1760:st=i [939] 

1680 IF 1$=— THEN RR I NT “ E r ro r C LOSEOUT : G [3716] 
OTO 1220 

1690 GOSUB 1760: 1e=i'-st+l [1212] 

1700 !SAVE,s t,1e:IF i$<>"" THEN 1670 [2150] 

1710 PRINT#9,CHR$(26);:CLOSEOUT:GOTO 1220 [2506] 

1720 PRINT TAB(LEN(e1n$)+4)CHR$(ll)CHR$(16 [2134] 
0)” Error":GOTO 1220 

1730 'breakkey pressed [1569] 

1740 LOCATE 1,24:RUN 1160 [1258] 

1750 'convert String to integer [1757] 

1760 x$="4":IF i$="" THEN i$="0" [1153] 

1770 1p=INSTR(i$," ") [802] 

1 780 IF ip = 0 THEN x$ = x$+i$ : 1$= " " ELSE x$ = x [3516] 
$+LEFT$(i$,ip-1):i$=MID$(i$,ip+1) 

1790 1=VAL(x$) [584] 

1800 'de 1ete blanks [ 468 ] 

1810 WHILE LEFT$(1$,1)=" ":i$=MID$(i$,2):W [3202] 
END:RETURN 


10 ***** Dataloader fuer ***** [1013] 

20 ' ***** Retter.M-C ***** [1081] 

25 ***** LISTING 2 ***** [855] 

30 MEMORY 49FFF:adr = 4A000:z=120:er=0 [1560] 

40 FOR a=1 TO 20:GOSUB 80:NEXT [1526] 

50 PRINT CHR$(10)er"Fehler“ [1259] 

60 IF er=0 THEN SAVE"retter.m-c",b,4A000,& [2215] 
12A 

70 ENO [110] 

80 sum =0 [ 431 ] 


90 READ a$:IF LEFT$(a$,1)<>"4" THEN d=VAL( [ 5374 ] 
" 4" + a$):POKE adr,b:adr=adr+l:sum=sum+b:GOT 
O 90 

100 IF sum=VAL(a$) THEN PR I NT"Zei1e";z;"0. [83333 
K."CHR$(13); ELSE PRINT"Zellez;"Fehler": 
e r = e r +1 

110 z=z+10:RETURN [1329] 

120 DATA 1,C,AO,21,0,AO,36,C9,23,C3,Dl,BC, [1953] 

30,AO,C3,&680 

130 DATA 4C,AO,C3,EB,AO,FE,2,CO,D5,DD,6E,2 [3325] 
,00,66,3,&862 

140 DATA AF,CB,24.17,CB,24,17,CB,3C,CB,3C, [2051] 

CB,F4,F6,CO,&83E 

150 DATA C6,4,1,C0,7F,ED,79,7E,EO,49,El,77 [3661] 
, 23,AF,77,47C5 

160 DATA C9,53,45,41,52,43,C8,53.41,56,C5, [1989] 

50,45,45.CB,4653 

170 DATA 0,30.C0,EB,7E,23,5E.23,56,ED,53,2 [1997] 
6 , Al,32,28,45C1 

180 OATA Al,1A,1,CO,7F,IE,C4,ED,59,C5,21,0 [3283] 
,40,1,0,454A 

190 DATA 40,ED,Bl,28,9,CI,1C.CB,5B,28,ED,E [3054] 
D,49,C9,C5, 47EB 

200 DATA F5,E5,D5,6,7F,3A,28,Al,30,28,15,4 [1116] 
F,DO,2A,26,&62D 

210 DATA Al.DD,7E,1,BE,20,2D,DD,23,CD,C7,A [2559] 
0,ED,59,D,& 78F 

220 DATA 20,FO,Dl,El,E5,D5,28.CB.24,CB,24, [2698] 

CB,1B.CB,IC,4852 

230 DATA CB,1B,CB,IC,7C,CD,DO,AO,7D,CD,DO. [1745] 

AO,3E.D,CD,4858 

240 DATA 5A,BB,3E,A,CO,5A,B8,Dl,E1,23,ED,5 [2831] 
9,Fl,CI,F2,48FE 

250 DATA 6A.A0,18,A7,23,CB,7C.C8,IC,21,0,4 [1954] 
0 ,C9,F 5,CB,4701 

260 DATA 3F,CB,3F,CB,3F,CB,3F.C0,0F,A0,F1, [1614] 
E6.F.FE,A.4897 

270 DATA 38,2,C6,7,C6,30,CD,5A,BB,C9,FE,2. [2419] 

CO,DD,6E,4 7B3 

280 DATA 2,DD,66,3,E5,1,0,7F,CB,14.CB,11,C [2871] 
8,14,CB,4612 

290 DATA 11.CB,F9,CB,Fl,CB,Dl,El,CB,BC.CB, [1650] 
F4,ED,49,7E,4B08 

300 DATA CD,95,BC,23,CB, 7C,28,6,C,21,0,40 , [ 2 789 ] 
ED,49,1B,4574 

310 DATA 7A,B3,20,EC,E,CO,ED,49,C9,0,0,0,0 [2774] 
. 4506 


Listing Retter 
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.NM 4614386 6 


100,- DM für 1 KB 

Die Herausforderung 

UEITNCHF 

_ MAÜIK p* 



Herzlich willkommen zu unserer Herausforderung. Vie¬ 
le Leser unserer Zeitschrift haben wirkliche Unmengen 
von Programmen eingeschickt, mit dem Erfolg, daß wir 
gar nicht mehr mit dem Durchsehen und Prüfen nach- 
kommen. 

Es mußten sogar einige gute Programme zurückgesandt 
werden, weil die Rubrik überfüllt war. Wir bitten die 
Einsender, deren Programme abgelehnt wurden, uns 
nicht böse zu sein, da w ir pro Heft nur vier Programme 
annehmen können. Wir können nur sagen: Probieren 
Sie es einfach noch einmal, vielleicht haben Sie das 
nächste Mal mehr “Glück“. 


1. Programm: ßekanoid 

Die Spieler unter Ihnen werden sicherlich das Spiel "Arka- 
noid“ kennen, bei dem es um das Abschießen von Steinen 
geht. Daß man nicht viele KB verwenden muß, zeigt Bcka- 
noid. Das AUerfeinste kommt aber jetzt: Bekanoid ist ein 
Mini-Spiel, nicht nur von der Länge des Programms, nein, 
das Spielfeld ist nur wenige Zentimeter groß! Obwohl so 
klein, macht es irrsinnigen Spaß, seinen ungefähr vier Pixel¬ 
großen Schläger durch das Spielfeld zu jagen, um die pixel¬ 
großen Reihen abzutreffen. Das müssen Sie ausprobiert 
haben. 

Steuerung 

Der Sinn des Spieles ist, alle dunklen Steine mit dem Ball, 
der durch den vom Spieler gelenkten Schläger im Spiel ge¬ 
halten wird, abzuschießen. Ist das erreicht, erscheinen neue 
Steine, die abgeschossen werden müssen. Kann der Spieler 
den Ball nicht mehr nach oben schießen, so hat er verloren, 
und die erreichte Punkteanzahl wird angezeigt. Beim Über¬ 
schreiten des High-Scores wird auch dieser angezeigt. Sound 
oder Hintergrundgeräusche konnten aus Platzmangel leider 
nicht integriert werden. Genauso wie eine Highscore-Liste, 
die nicht auf Diskette abspeichert. Übrigens liegt der Rekord 
des Autoren bei 243 Punkten, was wirklich schwierig ist. 

(Jürgen Lutz/cd) 

2. Programm: Take it 

Hier folgt noch ein Spiel von demselben Autor, das nach der 
gleichen Art aufgebaut wurde. Das Spielfeld beschränkt sich 
auch hier auf wenige Zentimeter, was den Spielreiz aber in 
keiner Weise vermindert, im Gegenteil. 

Der Spieler lenkt einen hellen Punkt, der in der linken oberen 
Ecke der dunklen Felder erscheint. Der Spieler muß den 
Punkt mit dem Joystick auf den anderen, hellen Punkt, der 


innerhalb der dunklen Felder liegt, bewegen. Danach wird 
das Spielfeld gewechselt und ein neuer Zielpunkt erscheint. 
Wenn einem ein Spielfeld nicht gefällt, kann es mit dem 
Druck auf den Feuerknopf geändert werden. Nach Ablauf 
des Zeitlimits beginnt das Spiel von neuem. Der Highscore 
liegt beim Autor bei 230 Punkten. Werden Sie das auch 
schaffen? 

(Jürgen Lutz/cd) 

3. Programm: Charakternennung 

Wissen Sie, was Sie für einen Charakter besitzen? Keine Fra¬ 
ge, werden Sie sagen, aber wissen das auch andere? 
Mit diesem Programm erfahren Sie. was der Name über den 
Charakter aussagt. Geben Sie Ihren oder den Namen Ihrer 
Freundin ein. und schon wissen Sie, wer welchen Charakter 
besitzt. Ein wirklich großer Party-Gag. 

Funktionsweise 

Jeder Buchstabe bekommt einen ganz bestimmten Wert zuge¬ 
wiesen, wie z.B.: 

Die Buchstaben A —I entsprechen den Ziffern 1-9: 

Die Buchstaben J-R entsprechen den Ziffern 1 -9: 

Die Buchstaben S —Z entsprechen den Ziffern 1 —8: 

Zum Beispiel ergibt der Name AMSTRAD einen harmoni¬ 
schen Partner, der sich wie folgt errechnet hat: 

AMSTRAD 

1+4+1 + 2 + 9 + 1+ 4=22 

Da die Summe größer als neun ist. wird das Ergebnis zerlegt 
und addiert. 

ln unserem Beispiel ist die Endsumme 22. Also heißt es jetzt. 
2 und 2 zu addieren und anhand des Ergebnisses die Charak¬ 
tereigenschaft festzustellen. 

(Ludwig Hauer/cd) 

4. Programm: Troff 

Troff ist eine bekannte Version des Tron-Spieles, aber mit ei¬ 
ner besonderen Option. Es können jetzt drei (3) Spieler zur 
gleichen Zeit spielen! Traurig ist, daß es von dieser Art zu 
wenige Spiele gibt. Aber jetzt laden Sie sich einen dritten 
Partner ein und auf geht’s mit Troff. 

Auf dem Bildschirm finden Sie drei verschiedenfarbige 
Punkte wieder, deren Steuerung w-ie folgt angegeben ist: 

Spieler 1: s = hoch, z = links, x = runter, c = rechts 
Spieler 2: :=hoch, .= links, /=runter, \ = rechts 
Spieler 3: Hier erfolgt die Steuerung über den Joystick 
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Durch das Entfernen der Zeilen 15,25. 45 kann das Spiel mit 
zwei Personen gespielt werden. 

(Erik Stein/cd) 

Die Bedingungen 

Hier noch einmal die Bedingungen unseres Wettbewerbs: 
Wir suchen komplette Programme (bitte ohne Steuerzei¬ 
chen!), die funktionsfähig möglichst auf allen drei CPCs lau¬ 
fen (was nicht heißen soll, daß wir bei besonders guten keine 
Ausnahme machen), und die nicht länger als 1 KByte sind 
(Anzeige auf dem Datenträger gilt!!). 


Der Preis für solche Programme beträgt DM 100. —. Senden 
Sie uns Ihr Programm auf Datenträger (Diskette/Kassette) 
mit Programmbeschreibung (möglichst in ASCII- Form mit 
auf dem Datenträger) zu und zwar an den: 


DMV-Verlag 
Postfach 250 
Stichwort: 100,- DM 
3440 Eschwege 


für 464-664-6128 



1 REM BEKANOID 

10 MODE 1:LOCATE 1 5 . 1 : PRINT"* Bekanoid*":PL 
OT 264,160,1:DRAW 264,228:DRAW 362,228:DRA 
W 362,160 

20 IE h< p THEN h = p:LOCATE 1 7,8:PR I NT"H1gh " 
! h 

21 p=0 

30 PLOT c,d,0:x=0:O=0:v=315:c=315:d=162:PL 
OT 275,220,3:DRAW 350,220:PLOT 285,214:DRA 
W 340,214:PLOT 295,208:DRAW 330,208:y=1:GO 
TO 50 

40 IF INKEY(74)>-1 THEN v = v-2 ELSE IF INKE 
Y(75)>-1 THEN v = v + 2 ELSE GOTO 60 
50 PLOT a, 160,0:DRAW a+6,160:PLOT v, 160,1: 
DRAW v + 6,160 

60 IF v > 3 5 6 OR v<266 THEN v = a ELSE a = v 
70 PLOT c,d,0:c=c+x:d=d+y:f=TEST(c,d) :IF f 
=3 THEN p=p+l:o=o+l:y=y-y*2:LOCATE 16,18:P 
RI NT "Punkte'' ; p ELSE IF f=l THEN 90 
80 PLOT c , d,2:IF d <160 THEN 20 ELSE IF o = 8 
0 THEN 30 
85 GOTO 40 

90 IF 0358 OR c<268 THEN x=x-x*2 

100 IF d > 2 2 6 THEN y=y-y*2 ELSE IF d<164 TH 

EN IF a<c AND a+4>c THEN x=-l:y=l ELSE IF 

c < 35 6 THEN x=l:y=l ELSE x = -l:y=l 

110 c=c+x:d=d+y:GOTO 40 


1 REM TAKE IT 
5 MODE 1 

10 2=999:PLOT a,b,0:a=266:x=266:b=240:y=24 
0:INK 3,10:p = -10:LOCATE 15,1:PR I NT"«Take 1 
t* " :GOT O 70 

20 SYMBOL AFTER 1:FOR i = 143 TO 151:SYM30L 
i ,RND* 9,RND*99,RND*99,RND*99,RND*9,RND*99, 
RND* 99,RND* 9 9:NEXT 

30 PEN 3:FOR i=l TO 3:FOR e=l TO 3:L0CATE 
i + 17 , e+10:PRINT CHR$(142+1*e ) :NEXT e, i :PEN 
1:PLOT RND*40+276,RND*30+200,2:PLOT a,b,l 
:PLOT 260,250,3:DRAW 335,250:DRAW 335,180: 
DRAW 260,180:DRAW 260,250 

40 z = z-l:LOCATE 5,5:PRI NT"Zeit ; 2 :IF 2 = 0 T 
HEN FOR i=l TO 25:SOUND 1, 150+i ,4 , 15;NEXT; 
GOTO 10 

50 FOR w=l TO 5:NEXT:IF INKEY(75)>-1 THEN 
x = x+ 2 ELSE IF INKEY{74)> — 1 THEN x = x-2 ELSE 
IF INKEY(72)>-1 THEN y=y+2 ELSE IF INKEY( 
73)>-1 THEN y=y-2 ELSE IF INKEY(76)>-1 THE 
N 20 ELSE 40 

60 f=TEST(x,y):IF f=2 THEN 70 ELSE IF f=0 
THEN PLOT x,y,1:PLOT a,b,0:a=x:b=y ELSE x= 
a : y = b 

61 GOTO 40 

70 FOR i=1 TO 50:INK 0,RND*26:SOUND 1,RND* 
2000,5,15:NEXT:p=p+10:LOCATE 25,5:PRINT"Pu 
nkte";p:INK 0,1:IF p>=h THEN h=p:LOCATE 15 
, 20:PRINT"High”;h 
80 GOTO 20 


[1050] 
[5787] 


[3394] 

[ 257] 

[ 7468] 


[ 3414] 

[ 3027 ] 

[1943] 
[ 7086 ] 


[2617] 

[ 378] 
[1414] 
[ 6109 ] 


[ 952 ] 


[ 1050 ] 
[ 506] 

[ 4428 ] 


[6718] 


[12410] 


[8450] 


[9169] 


[6014] 

[ 378] 

[ 9299 ] 

[ 398] 


Listmg 1 KByte 


1 REM CHARAKTERNENNUNG 

10 MODE 2:INK 1,22:INK 0,0 

40 FOR 1=1 TO 9: READ a$(1):NEXT 

50 DATA ein Opt1mist,Roman11 sch,K1ug,ein h 

armonischer Partner,sensibe1,e1n Menschenf 

reund,ruhig,raetselhaft,ein Feind von Unge 

rechtig keit 

60 :LOCATE 14,8:LINE INPUT "Bitte geben Si 
e Ihren Namen ein ,b$:b$=UPPER$(b$) 

70 g=0:FOR i=l TO LEN(b$):a$=(MID$(b$,i,1) 
):GOSUB 90 
80 NEXT:GOTO 180 

90 g1 = 0:FOR A = 65 TO 73 : gl = g1+1:IF CHR$(A) = 
A$ THEN GOTO 110 
100 NEXT:GOTO 120 
110 g=g+gl:RETURN 

120 g2=0:FOR A=74 TO 82:g2=g2+1:IF CHR$(A) 
=A$ THEN GOTO 140 
130 NEXT:GOTO 150: 

140 g=g+g2:RETURN 

150 g3=0:FOR A=83 TO 90:g3=g3+1:IF CHR$(A) 
=A$ THEN GOTO 170 
160 NEXT: 

170 g=g+g3:RETURN 
180 IF g< 9 THEN 210 

190 c$ = STR$(g):ag = VAL(MID$(c$,2,1>):ag2 = VA 

L(MID$(c$,3,l)) :g=ag+ag2 

200 IF g > 9 THEN g = g-MAX(ag,ag2) 

210 LOCATE 14, 10:PRINT CHR$<7);B$;" sie si 
nd "CHR$(24);a$(g);CHR$(24):CALL &BB06:RUN 


[1478] 
[2278] 
[1854] 
[ 9865 ] 


[7134] 

r 281 7 ] 

[1146] 
[ 3865 ] 

[ 967 ] 

[ 1520] 
[3540] 

[1057] 
[ 1414 ] 
[2757] 

[514] 

[1283] 
[ 1361 ] 
[3231 ] 

[1387] 

[4207] 


1 REM TROFF 

10 DEFINT a-z:MODE 1:CLG 3 : x = 296 : v= 336 : y = 1 
99:w=y:DIM a(90),b(90):a(14)=-2:b(15)=-2:b 
(26)=2:a(60)=2:b(83)=2:b(88)=-2:a(90)=-2:a 
(67)=2:SPEED KEY 1 , 1 

15 x3=50:y3=50:a(8)=-2:a(9)=2:b(10)=-2:b(l 
1 ) = 2:d=ll 

20 WINDOW 2,39,2,24:CLS:t=90:g=60:WHILE e= 
0:x=x+a(t):y=y+b(t):v=v+a(g):w=w+b(g) 

25 x3=x3+a(d):y3=y3+b(d) 

30 IF T E ST(x,y)> 0 THEN e = 2 ELSE PLOT x,y,l 
:1= ASC(INKEY$+" ")-32:IF 1 = 14 OR i = 15 OR i 
=26 OR 1=60 THEN t=i 

40 IF TEST(v,w)>0 THEN e=l ELSE PLOT v,w,2 
:1=ASC(INKEY$+" ")-32:IF 1=90 OR 1=88 OR i 
=67 OR 1=83 THEN g=i 

45 IF TEST(x3,y3)>0 THEN e=3 ELSE PLOT x3, 
y3,3: i=ASC(INKEY$ + CHR$(0)) :IF 1=8 OR 1=9 O 
R 1=10 OR 1=11 THEN d=i 

50 p=p+l:WEND:LOCATE 9,12:PRINT" SPIELER " 
e" PUNKTE "p:FOR s=l TO 2000:NEXT:RUN 

Listing i KByte 


[389] 

[ 9905 ] 


[2817] 

[5119] 

[634] 

[5410] 

[5654] 

[5377] 

[5405 ] 
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Die Assemblerecke 

Zeichensatz mit Variationen 

Wer seine Kenntnisse in Maschinensprache vertiefen möchte, sollte keine 
Gelegenheit auslassen, anhand gut kommentierter Listings die Anwen¬ 
dungsmöglichkeiten der Z80-Befehle zu studieren. Leider bieten Fachzeit¬ 
schriften in dieser Hinsicht recht wenig. Da Assemblerlistings viel Platz be¬ 
anspruchen, werden Maschinenprogramme meist nur in komprimierter 
Form als DATA-Wüsten veröffentlicht, deren Informationsgehalt für den 
lernbegierigen Newcomer gleich Null ist. Aus diesem Grund hat PC Inter¬ 
national mit der Assemblerecke ein Reservat eingerichtet, in dem Sie Ma¬ 
schinenprogramme noch in ihrer ursprünglichen Form besichtigen können, 
so wie sie der Programmierer eingegeben hat. 


Bereits in den bisherigen Folgen wurde 
der Z80-Befehlssatz anhand kleiner 
Beispielprogramme erläutert. Bevor 
wir in dieser Folge zu einer etwas kom¬ 
plexeren Anwendung kommen, ein 
kleiner Ausflug in die Welt der Text¬ 
verarbeitung: Schaut man sich die 
Textdarstellung der verschiedenen 
Programme an, so kann man grob zwei 
Typen unterscheiden. 

Die erste Sorte, bekannt unter dem Na¬ 
men 'WYSIWYG' (What You See Is 
What You Get), gibt sich redlich 
Mühe, den Text so auf den Bildschirm 
zu bringen, wie er nachher auf dem Pa¬ 
pier erscheint, also bereits fertig for¬ 
matiert und mit einer grafischen Dar¬ 
stellung der verschiedenen Schriftarten 
wie Fett, Kursiv, Unterstreichen usw. 
Die andere Sorte folgt dagegen dem 
YCAGWYW-Prinzip (’You Can’t Al- 
ways Get What You Want’) und be¬ 
nutzt spezielle Steuerzeichen, um die 
Umschaltung zwischen den Schriftar¬ 
ten anzuzeigen. Das ist für den Anwen¬ 


der zwar unübersichtlich, hat aber auf 
Computern seine Berechtigung, die 
über einen speziellen Textmodus ver¬ 
fügen. 

ln diesem Modus reicht es, die ASCII- 
Nummer des Buchstabens nebst einer 
Farbinformation in den Bildschirm¬ 
speicher zu schreiben, und der Video- 
Chip kümmert sich dann um die Dar¬ 
stellung des dazugehörigen Punktmu- 
sters. 

Durch die Hardware-Unterstützung 
wird die Textdarstellung sehr schnell 
und läßt sich einfach programmieren. 
Allerdings ist man damit auf den einge¬ 
bauten Zeichensatz angewiesen, der 
nicht verändert werden kann. 

Ein Blumentopf 
im Grafikmo dus 

Eine variable Textdarstellung im Gra¬ 
fikmodus erfordert wesentlich mehr 
Aufwand, da jeder Bildpunkt 'persön¬ 
lich’ angesprochen werden muß. Ins¬ 


besondere ist es schwierig (wenn auch 
nicht unmöglich), eine für Textverar¬ 
beitung ausreichende Geschwindigkeit 
bei der Bildschirmausgabe zu errei¬ 
chen. Ohne eine hardwarenahe Pro¬ 
grammierung in Assembler ist in dieser 
Hinsicht kein Blumentopf zu gewin¬ 
nen, was einerseits den Entwicklungs¬ 
aufwand erhöht und andererseits die 
Übertragung des Programms auf ande¬ 
re Rechner erschwert. 

Der CPC ist über solche Probleme je¬ 
doch erhaben, da er ohnehin alles im 
Grafikmodus darstellt. Die Textausga¬ 
be wird dadurch zwar nicht gerade 
weltrekordverdächtig schnell, aber da¬ 
für unterstützt bereits das Betriebssy¬ 
stem und das CPC-Basic die Gestaltung 
eigener Textzeichen. Im Prinzip ist es 
also kein Problem, verschiedene 
Schriftarten auf dem Bildschirm darzu¬ 
stellen. Wer für jeden Schrifttyp einen 
Spezialzeichensatz mit Hilfe unzähli¬ 
ger SYMBOL-Anweisungen definie¬ 
ren will, hat allerdings eine Menge zu 
tun. 

Nach dem Motto “Wie sollte man bloß 
die ganze Arbeit, die ein Computer 
macht, ohne Computer schaffen" 
möchten wir deshalb eine elegante Lö¬ 
sung vorstellen, die es erlaubt, ohne 
großen Aufwand zwischen verschiede¬ 
nen Schriftartenzu wechseln. Zunächst 
wird der Zeichensatz mit SYMBOL 
AFTER 32 ins RAM verlegt, und dann 
tritt ein kleines Maschinenprogramm 
in Aktion, um ihn nach einem ausge¬ 
klügelten System zu verunstalten. Falls 
Sie sich noch nicht mit einem Assem¬ 
bler angefreundet haben, können Sie 
auch den Basic-Lader abtippen, um 
Ihre Listings fortan in Fettschrift oder 
gar unterstrichen auf dem Bildschirm 
auszugeben. 

Wie das Programm aufgerufen wird, 
ist den Kommentaren am Anfang des 
Assemblerlistings zu entnehmen. Zu¬ 
sätzlich besteht die Möglichkeit, belie¬ 
bige Kombinationen der Schriftarten 
zu erzeugen, indem die entsprechenden 
Zahlen addiert werden. So ergibt z.B. 
8 + 2 = 10 unterstrichene Fettschrift. 
Der eingestellte Schrifttyp wirkt auf 
sämtliche Textausgaben des CPC, bis 
Sie ihn durch einen erneuten Aufruf 
der Routine wieder ändern. 

Das Listing unter der Lupe 

Für alle, die sich für die Funktionswei¬ 
se des Programms interessieren, hier 
noch einige ergänzende Erläuterungen: 
Zu Beginn (Zeile 200-210) steht eine 
Sicherheitsabfrage, die eigentlich jedes 
Maschinenprogramm durchführen 


48 PC 2’89 




Assembler | 


sollte, das von Basic aus aufgerufen 
wird. 

Die Anzahl der übergebenen Parame¬ 
ter stellt der Interpreter freundlicher¬ 
weise im Akku zur Verfügung, so daß 
sich problemlos ein kleiner Syntax- 
Check durchführen läßt. Wird das ge¬ 
forderte Aufrufformat nicht eingehal¬ 
ten. so erfolgt ein sofortiger Rück¬ 
sprung, um unkontrollierte Abläufe zu 
verhindern. 

Die nächste Aktion (Zeile 220-240) be¬ 
steht darin, die Matrixadresse des 
Leerzeichens (ASCII-Nr. 32) zu ermit¬ 
teln. Hier der Steckbrief des benutzten 
Betriebssystem-Aufrufs: 

TXT GET MATRIX &BBA5 
Einsprung: A enthält die Nummer des 
Zeichens. 

Aussprung: HL enthält die Adresse 
der Zeichenmatrix. Wenn sie sich im 
RAM befindet (d.h. verändert werden 
kann), ist das Carry-Flag gesetzt, an¬ 
sonsten gelöscht. Die Register BC. 
DE, IX und 1Y bleiben erhalten. 

Unser Programm kann natürlich nur 
arbeiten, wenn für den Zeichensatz 
durch SYMBOL AFTER 32 ein RAM- 
Bereich reserviert wurde. Ist das nicht 


der Fall, so sorgt die Zeile 240 für ei¬ 
nen sofortigen Rücksprung. 

Die Zeilen 260-330 beschäftigen sich 
damit, vor der Manipulation des Zei¬ 
chensatzes den Originalzustand herzu¬ 
stellen. Zu diesem Zweck werden die 
Matrizen aus dem Betriebssystem- 
ROM an die RAM-Adresse kopiert, 
die wir durch den Aufruf von TXT 
GET MATRIX erhalten haben. Da 
beim Aufruf eines Maschinenpro¬ 
gramms von Basic aus im gesamten 
Adreßbereich des Z80 der RAM-Spei¬ 
cher selektiert ist. muß jedoch erst das 
ROM zugänglich gemacht werden. Mit 
Hilfe weiterer Betriebssystem-Routi¬ 
nen ist das kein Problem: 

KL LOWER ROM ENABLE &B906 
aktiviert das untere ROM (Adreßbe¬ 
reich &000 - &3FFF), und 
KL LOWER ROM DISABLE &B909 
schaltet es wieder aus. Der Akku und 
die Flags werden durch beide Routinen 
verändert, alle anderen Register blei¬ 
ben erhalten. 

Die Zeichenmatrizen sind im ROM ab 
Adresse &3800 zu finden. Da wir erst 
ab Zeichen Nr. 32 kopieren, ergibt sich 
die Startadresse &3800 + 8 x 32 = 
&3900. Interessant sind für unsere 


Zwecke vor allem die Textzeichen bis 
Nummer 126; die Grafikzeichen ab 
127 lassen wir in Ruhe. Da jede Zei¬ 
chenmatrix 8 Pixelreihen (d.h. 8 Bytes) 
umfaßt, müssen insgesamt (126-32 + 1) 
* 8 = 760 Byte kopiert werden, was 
der in der letzten Folge besprochene 
Blocktransferbefehl LDIR erledigt. 
Wird Normalschrift verlangt (das heißt 
das Textattribut ist Null), so gibt es 
nichts weiter zu tun, und die Zeile 370 
sorgt für die Rückkehr ins Basic. An¬ 
sonsten wird jedoch das Attribut-Byte 
Stück für Stück ins Carry-Flag rotiert 
und für jedes gesetzte Bit die dazugehö¬ 
rige Umwandlungsroutine aufgerufen. 
An dieser Stelle wird klar, warum den 
Schriftarten die Zweierpotenzen 1.2.4 
usw. zugeordnet sind: Jeder Zahl ent¬ 
spricht genau ein Bit. Man könnte auch 
von einer anderen Zuordnung ausge¬ 
hen. aber so ist es sehr praktisch und 
ermöglich eine übersichtliche Pro¬ 
grammierung. 

Schräge Schrifttypen 

Die Unterprogramme für die verschie¬ 
denen Schriftarten vergnügen sich im 
wesentlichen damit, alle Zeichenmatri¬ 
zen abzuklappern und nach einem be¬ 
stimmten System zu verändern. Fett¬ 
schrift entsteht, indem man die Pixel¬ 
reihen ein Bit nach rechts schiebt und 
dann mit dem ursprünglichen Byte OR 
verknüpft. 

In der resultierenden Reihe sind dann 
alle Punkte gesetzt, die in der ur¬ 
sprünglichen oder in der verschobenen 
Reihe 'eingeschaltet' waren. Auf diese 
Weise werden vertikale Linien um ei¬ 
nen Pixel breiter. 

Die dünne Schrift entsteht auf ähnliche 
Weise: Das logische OR wird einfach 
durch ein AND ersetzt. Dadurch blei¬ 
ben nur Punkte übrig, die im Original 
und in der verschobenen Matrix ge¬ 
setzt waren. Alle vertikalen Linien 
werden dadurch einen Pixel dünner. 
Dieser Trick funktioniert allerdings 
nur, weil die vertikalen Linien der 
CPC-Zeichen von vornherein zwei Pi¬ 
xel breit sind. 

Bei Kursivschrift wird ebenfalls kräftig 
geschoben, und zwar im oberen Teil 
des Zeichens nach rechts und im unte¬ 
ren Teil nach links, wodurch eine 
leichte Schräglage entsteht. Allerdings 
ist das Auflösungsvermögen der CPC- 
Grafik für eine saubere Darstellung 
schräger Linien leider nicht ganz aus¬ 
reichend; die besten Ergebnisse erhält 
man noch in MODE 2. 

Unterstreichen ist dagegen ohne Zwei¬ 
fel die leichteste Übuna: Es müssen nur 
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alle Bits in der letzten Punktreihe der 
Zeichen gesetzt werden, indem man in 
die entsprechende Speicherstclle den 
Wert &FF schreibt. 

Das Assemblerprogramm ist so aufge¬ 
baut, daß es sich leicht um weitere Fea¬ 
tures erweitern läßt. Denken Sie sich 
einfach einen neuen Schrifttyp aus, 
schreiben Sie nach dem vorgegebenen 
Schema das dazugehörige Unterpro¬ 


gramm und integrieren Sie es durch 
eine weitere RRA und CALL-Kombi- 
nation in den Zeilen 380 - 450. Wie 
wäre es zum Beispiel mit einer Routi¬ 
ne, die den Zeichensatz um 90 Grad 
dreht? Diese Aufgabe ist nicht ganz 
ohne, da alle 64 Bit eines Zeichens um¬ 
sortiert werden müssen. 

Mit einer eleganten doppelten Schleife 
und einigen Rotierbefehlen sollte das 


allerdings für den angehenden Profi 
kein Problem darstellen. 

Durch zweimaligen Aufruf der Routine 
könnte man die Schrift sogar auf den 
Kopf stellen, was einen ahnunglosen 
CPC-Benutzer, dem man das Pro¬ 
gramm heimlich unterschiebt, sicher¬ 
lich etwas überraschen dürfte... 

(Matthias Uphoff/cd) 


10 • 

;********************************** 

20 ' 

;Verschiedene Schriftarten erzeugen 

30 ’ 

•.Aufruf: CALL 8.9E00 , Att r i but 

40 • 

;Attribut=0: Normalschrift 

50 1 

; 1: Duennschrift 

60 ' 

; 2: Fettschrift 

70 ' 

; 4: Kursiv 

80 ' 

; 8: Unterstrichen 

90 ' 

iSetzt SYMBOL AFTER 32 voraus !!! 

100 

';******************S************** 

110 



120 

'ROMON EQU &B906 ;unteres ROM ein 

130 

'ROMOFF EQU &B909 ;unteres ROM aus 

140 

'GETMAT EQU &BBA5 ;TXT GET MATRIX 

160 

'ANZAHL EQU 95 

; 95 Zeichen 

170 

' 


180 

'ORG &9E00 

Aufruf ad resse 

190 

' 


200 

'CP 1 

1 Parameter? 

210 

'RET NZ 

zurueck wenn nicht 

220 

'LD A.32 

A = ASC(" ") 

230 

'CALL GETMAT 

Mat rixad r. holen 

240 

'RET NC 

zurueck wenn 

250 


Matr. nicht im RAM 

260 

PUSH HL 

Matrixadr. merken 

270 

'CALL ROMON 

unteres ROM ein 

280 

'EX OE,HL 

Matrixadr. nach DE 

290 

'LD HL.&3900 

Matrixadr. im ROM 

300 

'LO BC,760 

95*8 Bytes 

310 

' LDIR 

ins RAM kopieren 

320 

'CALL ROMOFF 

unteres ROM aus 

330 

'POP HL 

Matrixadr. holen 

340 

1 


350 

'LD A,(IX+0) 

Textattribut 

360 

'OR A 

Normalschrift? 

370 

'RET Z 

dann zurueck 

380 

' RRA 

sonst Bits testen: 

390 

'CALL C.DUENN 

-> Duennschrift 

400 

' RRA 


410 

'CALL C,FETT 

-> Fettschrift 

420 

' RRA 


430 

'CALL C,KURSIV 

-> Kursivschrift 

440 

' RRA 


450 

'CALL C.UNTSTR 

-> Unterstreichen 

460 

' RET 

und fertig 

470 



480 

';** SUB Umwandlung in Duennschrift 

490 

'DUENN PUSH AF 

Attribut merken 

5 00 

'PUSH HL 

Startadr. merken 

510 

' LD C,ANZAHL 

C=Anzahl Zeichen 

520 

DNEXT1 LD B.8 

B=Anzahl Reihen 

530 

'DNEXT2 LD A,(HL) ;Pixelreihe holen 

540 

' SRL A 

rechts schieben 

550 

AND (HL) 

AND-verknuepfen 

560 

'LD (HL),A 

wieder abspeichern 

5 70 

' INC HL 

Ad resset 1 

580 

DJNZ DNEXT2 

-> naechte Reihe 

590 

' DEC C 

Zeichenanzahl-1 

600 

'JR NZ.DNEXTl 

-> naechstes Z. 

610 

POP HL 

Startadr. holen 

620 

POP AF 

Attribut holen 

630 

'RET 

fertig 

640 



650 

;** SUB Umwandlung in Fettschrift 

660 

FETT PUSH AF 

Attribut merken 

670 

'PUSH HL 

Startadr. merken 

680 

' LD C,ANZAHL 

C = Anzahl Zeichen 

690 

FNEXT1 LD 8,8 

B = Anzahl Reihen 

700 

FNEXT2 LD A,(HL) ;Pixelreihe holen 

710 

' SRL A 

rechts schieben 

720 

'OR (HL) 

OR-verknuepfen 

730 

’ LD (HL) ,A 

wieder abspeichern 

740 

'INC HL 

Adresse+1 

750 

'DJNZ FNEXT2 

-> naechste Reihe 
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760 

' DEC C 

Zeichenanzahl-1 


770 

JR NZ.FNEXTl 

-> naechstes Z. 


780 

POP HL 

Startadr. holen 


790 

'POP AF 

Attribut holen 


800 

' RET 

fertig 


810 




820 

;*# SUB Umwandlung in Kursiv 


830 

'KURSIV PUSH HL 

Startadr. merken 


840 

'LD B.ANZAHL 

8=Anzahl Zeichen 


850 

KNEXT SRL (HL) 

1 . Reihe zweima1 


860 

SRL (HL) 

rechts schieben 


870 

INC HL 



880 

'SRL (HL) 

2 . Reihe einma1 


890 

'INC HL 



900 

'SRL (HL) 

3. Reihe ebenfalls 


9 10 

'INC HL 

4. und 5. Reihe 


920 

'INC HL 

uebergehen 


930 

'INC HL 



940 

'SLA (HL) 

6. Reihe und 


950 

'INC HL 

7 . Reihe einmal 


960 

'SLA (HL) 

links schieben 


970 

INC HL 



980 

'SLA (HL) 

8 . Reihe zweimal 


990 

‘SLA (HL) 



1000 'INC HL 

1010 'DJNZ KNEXT 

;-> naechstes Z. 


1020 'POP HL 

;Sta r tad r. holen 


1030 'RET 

1040 ’ 

•.fertig 


1050 ';** SUB Zeichen unterstreichen 


1060 'UNTSTR PUSH HL 

•.Startadr. merken 


1070 'LD B.ANZAHL 

;B=Anzahl Zeichen 


1080 'LD OE,8 

;Sch rittweite 


1090 'DEC HL 

iStartad r-1 


1100 'UNEXT ADD HL,DE;Adr.+Schrittweite 


1110 'LD (HL) , & F F 

;Al 1e Bits setzen 


1120 'DJNZ UNEXT 

;-> naechstes Z. 


1130 'POP HL 

;Startadr. holen 


1140 'RET 

; fertig 


10 


[ 1460] 

20 

Verschiedene Schiftarten erzeugen 

[2459] 

30 

Basic1 ade r 


( 668 ] 

40 

*********************************** 

(1460] 

50 



[117] 

60 SYMBOL AFTER 32 


[1296] 

70 MEMORY &9DFF 


[ 20 7 ] 

80 FOR ad r=&9E00 TO &9E84 

[1108] 

90 READ a$:a$="&"+a$ 


[ 595 ] 

100 

POKE ad r,VAL(a$) 


[84] 

110 

NEXT 


[350] 

120 

' 


[117] 

130 

DATA FE.01,CO,3E 

20,CO,AS,BB 

[ 862 ] 

140 

DATA DO,E5,CD,06,B9.EB,21,00 

[1530] 

150 

DATA 39.01,F8,02 

ED,BO,CD,09 

[1468] 

160 

DATA B9,E 1 .DD. 7E 

00,B 7,C8, 1F 

l 1781 ] 

1 70 

DATA DC.30.9E.1F, 

DC,4 4,9 E , 1F 

[ 676 ] 

180 

DATA DC,5 8,9 E , 1F, 

DC,77.9E.C9 

[ 1144] 

190 

DATA F5,E5,OE,5F,06,08,7E,CB 

[ 1201 ] 

200 

DATA 3F.A6,77,23, 

10,F8,OD,20 

[ 1 565 ] 

210 

DATA F3,El,Fl,C9, 

F5,E5,OE,5F 

[ 2024 ] 

220 

DATA 06,08,7E,CB 

3F , 86,77,23 

[ 1244 ] 

230 

DATA 10,F8,0D,20, 

F3,El,Fl,C9 

[1190] 

240 

DATA E5,06,5F,CB, 

3E,CB,3E.23 

[ 1480 ] 

250 

DATA CB,3E,23,CB, 

3E,23,23,23 

[1620] 

260 

DATA 08,26,23,08, 

26,23,CB,26 

[ 740] 

2 70 

DATA CB,26,23,10,E6,E1,C9,E5 

[1457] 

280 

DATA 06,5F,11,08,00,2B,19,36 

[ 1253 ] 

2 90 

DATA FF,10.FB.E1, 

C9 

[ 422 ] 

Lisling WYSIWYG 
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FULLSCREEN-EDTTOR: Bedienung 
über Cursortasten. Eingabe der Bytes 
in hexadezimaler Form, auf der ASCII- 
Seite können sämtliche Zeichen einge¬ 
geben werden. 

SHIFT + Pfeil links: Der vorhergehen¬ 
de Sektor wird geladen. 

SHIFT + Pfeil rechts: Der nachfolgen¬ 
de Sektor wird geladen. 

SHIFT 4- Pfeil hoch: Eine Spur vor 

SHIFT + Pfeil runter: Eine Spur zu¬ 
rück 


Der Diskette aufs 
Byte geschaut 

Ein Floppykurs für Wissensdurstige 

Nach vier Folgen Floppykurs soll diesmal der Lohn für die Mühe (beim 
Lernen, versteht sich) an Sie gereicht werden. Wir präsentieren Ihnen einen 
Diskettenmonitor, komplett in Assembler geschrieben, mit dem Sie nicht 
nur die erlernten Befehle zur Programmierung der Floppy nach vollziehen, 
sondern auch tiefer in die Datenstrukturen Ihrer Disketten einsteigen 
können. 


SHIFT + fO: Wechselt von der HEX- 
zur ASCIl-Seite. Nochmaliges 
Drücken wechselt zurück. 

SHIFT + fl: Die Spur (0-41) und der 
gewünschte Sektor (1— max. Anzahl 
der Sektoren auf dieser Spur) können 
rechts unten direkt eingegeben werden. 
Eine falsche Eingabe kann einfach mit 
DELETE korrigiert werden. Nach dem 
Eingeben der Spur muß kurze Zeit ge¬ 
wartet werden, bis der Lesekopf über 
diese Spur positioniert wurde. Wenn 
sich der Cursor im Sektorfeld befindet, 
können Sie den gewünschten Sektor 
eingeben. 


Endlich ist es soweit. Nach vier theore¬ 
tischen Folgen über die Programmie¬ 
rung des Floppy-Disc-Controllers un¬ 
serer Diskettenstation folgt nun ein An¬ 
wendungsprogramm, auf das kein 
Computerbenutzer verzichten kann. 
Mit DMON, einem Diskettenmonitor 
der Extraklasse, ist es jetzt möglich, je¬ 
den beliebigen Sektor der Diskette zu 
laden, nach eigenen Wünschen zu än¬ 
dern und wieder abzuspeichern. 'Der 
Diskette aufs Byte geschaut’ — das 
Motto unseres Floppykurses ist damit 
also erfüllt. 

DMON wurde 100% in Maschinen¬ 
sprache geschrieben, denn nur so las¬ 
sen sich hohe Verarbeitungsgeschwin¬ 
digkeiten erreichen und die Möglich¬ 
keiten der Floppy voll und ganz ausrei¬ 
zen. Dieser Diskettenmonitor stellt im 
Gegensatz zu 'normalen' Programmen 
ein Novum dar. Er kann nicht nur die 
drei Standardformate IBM, CP/M und 
DATA, sondern alle uns bekannten - 
und das sind nicht gerade wenig — 
Fremdformate bearbeiten. 

Werden wir konkret: Die Spuren 
0—41, Sektoroffsets von &00 —&FF 
und Sektorgrößen von 0-5 sind genau¬ 
so wenig ein Problem wie 32 Sektoren 


pro Spur und Sektoren mit gelöschter 
Data Adress Mark. Eine denkbare Ver¬ 
besserung wäre nur das Bearbeiten von 
Single-Density-Formaten. Da solche 
Formate aber noch nicht auf dem 
Markt sind und dies auch nur eine theo¬ 
retische Überlegung unsererseits für 
die Erstellung eines möglichen Kopier¬ 
schutzes ist, haben wir diesen Punkt 
vorerst einmal ausgeklammert (was 
nicht bedeutet, daß zu diesem Problem 
nicht noch eine Verbesserung von 
DMON erscheinen könnte). 

Auch in Punkto Bedienungskomfort 
übertrifft DMON viele sogenannte 
'kommerzielle' Software. Alle Funk¬ 
tionen sind logisch auf dem Zehnerzif¬ 
fernblock angeordnet und am Bild¬ 
schirm zu jeder Zeit abgebildet. Das 
umständliche Einschalten einer Help- 
Page entfällt genauso wie das Blättern 
in der Zeitschrift. Ein Fullscreen-Edi- 
tor ermöglicht einfachstes Ändern der 
Diskettenbytes auf dem Bildschirm. 

Übersicht über die Funktionen 
von DMON 

Hiermit kommen wir nun zu den Funk¬ 
tionen des DMON: 


ACHTUNG: Die eingegebene Spur 
wird nur angefahren, der Sektor also 
nicht geladen. Drücken Sie SHIFT + 
Pfeil links, dann SHIFT + Pfeil rechts, 
um den Sektor zu laden. Sie können so¬ 
mit z.B. einen Sektor von Spur 2 auf ei¬ 
nem anderen Sektor von Spur 40 ab¬ 
speichern, indem Sie den Sektor auf 
Spur 2 laden, dann Spur 40 direkt an¬ 
wählen und SHIFT + f4 drücken. 

SHIFT + f4: Nach einer Sicherheitsab¬ 
frage wird der Sektor auf der eingeleg¬ 
ten Diskette abgespeichert. 

Besonderheit von DMON: Der Sektor 
kann nicht nur auf der Diskette, von 
der er gelesen wurde, sondern auf jeder 
beliebigen Diskette abgespeichert wer¬ 
den. Es ist sogar egal, ob der Sektor ur¬ 
sprünglich den Offset &E4 hatte, wäh¬ 
rend auf der Zieldiskette nur Sektoren 
von &41 aufwärts zu finden sind. 

Der Sektor mit der kleinsten Nummer 
auf der Quelldiskette wird auf dem 
Sektor mit der kleinsten Nummer auf 
der Zieldiskette abgespeichert. Hat der 
Quellsektor die Größe 5 (4096 Byte) 
und der Zielsektor nur die Größe 2 
(512 Byte), werden logischerweise nur 
512 Byte abgespeichert. Liegt der um¬ 
gekehrte Fall vor. sind die restlichen 
3584 Byte unbestimmt. 
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Spiele für CPC 

Cass. Disk. 

1943 29.30 44.80 

20.000 Meilen unter dem Meei 47.90 

3 D Thai Boxmg 26.20 43.30 

4 Spiele 1 Diskette 49.90 

720 Grad 49.90 

Academy 29.30 

Acrojet 29.30 

AdvencedTactical Fighter 29.90 43.30 

Aliens 29.30 

Aliens us 43.30 


AnnalsofRome 
Arcade Force Foui 
Archon Collection 
ArcticFox 
Aikanotd2 
Armageddon Man 
Artura 

Asterix im Morgenland F. 612 

Axiens 

Bard'sTale 1 

Bedlam 

Beyondthelce Palace 

BionicCommando 

Blueberry und das Gespenst 

Bomb Jack 

Bomb Jack 2 

BoulderdashConstr.Kit 

Brave Star 

Bubble Bobble 

Bubble Ghost 

Buggy Boy 

California Games 


Captain America 
Catch 23 

Chamonix Challenge 
Championship Sprint 
Charlie Chaplin 
Clever & Smart 
Crafton&Xunk 


Ca». Disk. 
27.80 39.90 
26.20 39.90 
47.90 
47.90 
29.90 46.40 
29.30 44.80 
34.00 49.50 



49.90 

Crazy Cais 


46.40 

29.30 


Cybernoid 

29.90 

49.90 

29.30 


Cybemoid2 

34.50 

49.90 

29.90 

43.30 

D.T. Olympic Challenge 

29.90 

49.90 

29.30 


Darkside 

29.90 

49.90 


43.30 

Das Reich 


49.90 

29.90 

49.90 

Desolator 

29.30 

44.80 

29.30 

43.30 

Dogfight2187 


43.30 

38.60 


Dreierpack I 

25.90 



55.70 

DunDaragh 

29.90 

39.90 

34.60 

49.90 

Eddy Edwards Super Ski 


49.90 

34.60 

49.90 

Elevator Action 

26.20 

37.10 

29.90 

47.90 

Elite 

59.90 


38.60 

43.30 

Empire StrikesBack 

29.30 

44.80 

29.90 

47.90 

Enduro Racer 

29.90 

43.30 

8 

43.30 

Epyx (The Worlds Greatest) 

29.90 

55.70 


24.70 

Escape fromSings Castle 

26.20 

43.30 

34.60 

46.40 

Evening Star 

26.20 



44.80 

Exolon 

23.10 

38.60 


65.70 

Eye 


47.90 

29.90 

44.80 

Fairlight 

29.90 



43.30 

Fernandez must die 

29.90 

44.90 


38.60 

Fifth Quadrant 


29.90 


38.60 

Fire&Forget 

29.30 

44.80 

34.60 

49.90 

Firelord 


43.30 

27.80 

39.90 

Fists'nThrottles 

43.30 

47.90 

29.90 


FlightAce 

49.90 

65.70 


Football Manager 2 
Frank Brunos Big Box 
Fugger 


29.90 47.90 
43.30 57.20 
43.30 


Games Set and Match 


Games Set and Match 2 
Gauntlet 
Gauntlet2 
Gee Bee Air Ralley 
Get Dexter 
Glider Rider 
Gold Silber Bronze 
Golden Path 
Goonies 

GuildofThieves 6128 
Gunslinger 
Hacker 
Hacker 2 
Headover Heels 
Heavy ontheMagick 
High Frontier 
HoppinMad 
Impossible Mission 2 
Indiana Jones 
Indoor Sports 
Iniodroid 

International Karate Plus 
Jagd auf Roter Oktober 
Jinks 

Karate Ace 
Kamov 

Kiiieduntildead 

KnightOrc 

Lancelot 

Last Ninja 2 

LazerTag 

Leaderboard Par 3 

Leben und sterben lassen 

Legend ofKages 

Lightforce 

LivingDaylights 

Luky Luke Nitroglycerin 

Mach 3 


38.60 54.10 

44.90 65.70 
29.30 

29.30 44.80 

29.90 46.40 
29.90 


Mag Max 
Marble Madness 
Constr.DeLuxe 
Marble Madness 
Constr. Set 
Matchday2 


29.30 

29.30 44.80 


Short Circuit 


Sidewalk 


Skate Crazy 
Slap Fight 
Solid Gold 
SpaceAce 
Space Harner 


39.90 
29.30 46.70 

27.80 43.30 

29.30 43.30 

44.80 58.80 
34.60 49.90 

44.90 49.90 

29.90 49.90 
39.90 

43.30 58.80 
65.70 

43.30 58.80 


One 

Out Run 

Par Five Golf 

Peter Pan 

Phantom Club 

PHM Pegasus 

PingPong 

Pink Panther 

Pirates6128 

PSI 5 Trading Company 

Psycho Pigs 

Roadblasters 


29.30 43.30 
29.30 44.80 
29.90 

47.90 

49.90 
34.60 49.90 

46.40 
29.90 44.80 
55.70 

34.60 

34.50 

29.30 


Ten Mega Games 
Terror ofthe Deep 
Tetris 

Throne ofFire 
Toadrunner 464/664 
Top Ten Collection 
Trailblazer 
Trantor 

Trivial Persuit DT. 
Vermeer 
Vindicator 
Western Games 


Ca». Disk. 
23.10 

29.30 43.30 
27.80 

29.90 46.60 

29.90 49.90 
23.10 

44.80 

49.90 65.70 
23.10 38.60 



37.10 

Mercenary Compendium 


46.40 

Spy Versus Spy 

29.30 

43.30 

43.30 

59.80 

Mermaid Madness 

29.30 


Spy Versus Spy 3 

26.20 

39.90 


46.40 

Mewüo6128 


47.90 

Starglider 

49.90 

69.90 

29.30 


Miami Vice 

26.20 


Starquake 


37.10 


58.80 

Miniputt 

34.60 

49.90 

Strange Loop 


46.40 

34.60 


Minder on the Atlantic 


57.20 

Street Gang 

34,60 

49.90 

38.60 


Mystery ofthe Nile 

19.90 

39.90 

SuperSprint 


39.90 

29.30 


Nebulus 

29.90 

46.40 

Supreme Challenge 

44.80 

54.10 

23.10 

38.60 

Nemesis 

26.20 

43.30 

Sunnvor 

26.20 

39.90 

29.90 


Nether 

29.90 


Sweevos World 


46.40 

29.30 

44.80 

Nether World 


49.90 

Taipan 

27.60 

39.90 

29.90 

49.90 

Night Raidei 

34.00 

47.90 

Tarzan 

27.80 

39.90 

29.30 

44.80 

Off Shore Warrior 

29.90 

49.90 

Ten Great Games 3 

44.90 

49.90 


44.90 49.90 
29.30 43.30 

38.60 

26.20 

55.70 
34.50 49.90 
26.20 38.60 
26.20 

47.90 59.90 
58.80 

29.30 47.90 
29.30 44.80 


29.30 

44.80 

Rolling Thunder 

44.80 

WonderBoy 

29.90 

48.40 

44.80 

55.70 

Rygar 

26.20 39.90 

Working Backwards 


46.40 

29.90 

47,90 

Saboteur 

29.30 49.50 

World Games 

29.30 

49.90 


38.60 

Saboteur 2 

23.10 29.90 

World Games Leaderboard 

29.90 


26.20 

39.90 

Samurai Trilogy 

26.20 

Xevious 

29.30 

43.30 


43.30 

Sentinel 

29.30 43.30 

Xor 

27.80 

43.30 


38.60 

Shadowfire 

29.90 

Zoids 


46.40 

29.90 

46.40 

Shogun 

29.90 49.50 

Zynaps 

24.70 

39.90 



HARDWARE 


CPC-ZUBEHOR 


KUNSTLEDER-HAUBEN 


DISKETTEN 


PC-ZUBEHOR 


Kabel CPC/an Fernseher m. Scart 

Bildschirmfilter GT 64/65 . 

Bildschirmfilter CTM 640/644 . 

Druckerkabel 464/664 . 


CPC 464/664 . 

CPC 6128 . 

Monitor GT 64/65 . 

Monitor CTM 640/644 . 

LQ 3500 . 

EuroPC Tastatur. 

EuroPC Monitor MM 12. 

EuroPC Monitor CM 14. 

EuroPC Tastatur u. MM 12. 

EuroPC Tastatur u. CM 14 . 

PC 1512/1640 Tastatur. 

Schneider PC 2640 Tastatur ... 

no name MF Tastatur. 

PC 1512/1640 eintlg.komplett 

PC 1512/1640 zweitlg. Set. 

DMP 2000/2160/3000/3160 .... 

Star NL/ND/NR 10. 

Star LC 10. 


Druckerkabel 6128 


Monitorverlängerung CPC 464 . 

Monitorverlängerung CPC 664/6128 

Musik-/Data-Recorder. 

Kabel Computer/Recorder . 


Schneider 5’/»" 2D 

10 Stück mit Hartbox . 

no name 5‘/4" 2 D 10 Stck. ., 

BitStar 5 1 /»" HD 10 Stck. 

Verbatim 2Vi” 720K 10 Stck. 
boeder3'/2" 1,44 MB 10 Stck. 


Technische Daten des Amstrad PC 2086: . 

Prozessor: 16 Btt 8086 

Geschwindigkeit 8 MHz 

Coprozessor 8087 auf dem Board möglich 

Hauptspeicher: 640 KB RAM 

Massenspeichet. 720 KB 3'A" -Diskettenlaufwerk 

(1 oder2),opt 30MBFestplatte 
Adapter: externe SV* "-Laufwerke (360 KB, 

720 KB, 1,4 MB) oder Tape Streamer 
Grafik: VGA-Standard, 640X480 Punkte, 

256 Farben, EGA, Hercules und 
CGA kompatibel 

Tastatur: 102 Tasten, erweiterte AT-Tastatur (MF II) 

Steckplätze 3x8 Bit für Standardkarten voller Länge 


AMSTRAD 


PPC 512.ab 1698.00 

PC 1640 . zum Superpreis 

VGA Monitore für jeden PC-ab 499.00 

Netzwerk. 1998.00 

CPC 464 und Grünmonitor GT 65 398.00 
CPC 464 u. Farbmonitor CTM 644 698.00 

CPC 6128 und Grünmonitor GT 65 798.00 

CPC 6128 u. Farbmonitor CTM 644 1098.00 


Liefern mfang: 

Software: MS-DOS 3.3 Betriebssystem, 

GW-BASIC, Windows 2.03 

Maus: Zwei-Tasten-Maus, Microsoft kompitabel 

Bildschirme Entspiegelte VGA-Monitore, mit 

Schwenk- und Drehfuß 
PC 12 MD Standard, 12"positiv 
monochrom, 64 Graustufen 
PC 14 CD optional, 14" Farbe. 0,42 Dot Pitch 
PC 12 HRCD optional, 12" Farbe, 0,28 Dot Pitch 
PC 14 HRCD optional, 14" Farbe, 0,29 Dot Pitch 

_ a b 2499.- 

Bitte erfragen Sie Liefertermine und Preise der 
neuen Amstrad-Rechner 2286 und 2386 sowie der 
Schneider-Produkte Sprinter 264 und Laser Sprinter. 


Diskettenlaufwerk 3'/2", 

720 KB mit 5 'U " Einbaurahmen 


auch für PC 1512/1640 . 278.00 

20 MB Festplatte zum 

Einstecken (Filecard) . 798.00 

Joystickkarte XT/AT für 

2 Analogjoysticks . 59.00 

Analogjoystick Quickshot . 34.90 

Mouse Pad. 14.90 

3-Tasten-Mouse incl. Soft¬ 
ware u. 9/25 pol. Adapter.nur 79.00 

BTX-Karte mit FTZ-Nr.nur 598.00 


































































r.nmvuter 


ReinhardSdugter 


RÄSENTIERT 


So finden Sie unser Ladengeschäft: 

A 42 (Emscher-Schnellweg) Abfahrt 
Castrop-Rauxel. B 235 Richtung Witten. 2 
Ampel rechts , 1 Ampel links, dann 2 
Ampel links Über 60 Parkplätze stehen 
Ihnen direkt am Hause kostenlos zur 
Verfügung. 


HARDWARE 


{023 05) 3770ü B'lJi 023053770 

—slcST* aar 


Vertragshandler_ 


Street Sports Soccer 55.70 
Strike 29.30 

Strike Force Harrier 77.40 
Sub Battle Simulator 66.60 
Summer Edition 127.50 

Superstar Icehockey 66.60 
Suspect 88.30 

Tag Team Wrestling 55.70 
Test Drive 89.90 

Tetris 58.80 

The Enforcer 34.60 

The Pawn 74.30 

Thexdor 58.80 

Three Stodges 83.10 

Tomahawk 77.10 

Tracker 58.80 

TV Football 97.60 

Ultima 4 74.30 

Ultima 5 85.80 

Universal Military 
Scenery 1 43.30 

Universal Miiitary 
Scenery 2 43.30 

Universal Military 
Simulator 83.10 

Valcon 69.20 

Vectoball 47.90 

Vermeer 77.40 

Volleyball Simulator 59.80 
Wallstreet Wizzard 79.95 
Wüderness 97.60 

Winter Edition 127.50 

Winter Games 68.50 

Wishbnnger 88.30 

Witness 88.30 

Wizball 58.80 

World dass 

Leaderboard 66.60 

World Games 69.90 

World Senes Baseball 49.90 
World Tour Golf 77.10 

Yuppies Revenge 83.10 

Zak McKracken 59.90 


Spiele für PC 


Sargon 3 69.90 

Sentinel Words 77.10 

Seven Cities of Gold 59.80 
Shanghai 63.50 

Sherlock 89.90 

Shogun 49.90 

Sidewinder 29.90 

Silicon Dreams 63.50 

Skyrunner 58.80 

Soko Ban 58.80 

Solitaire 58.80 

Solomons Key 55.70 

Sommer Olymp. 88 83.10 

Space Quest 1 83.10 

Space Quest 2 63.50 

Space Racer 83.00 

Speed Ball 99.95 

Spitfire Ace 49.90 

Star Goose 77.10 

Star Rank Boxing 77.40 

StarTrek EGA+AT 84.95 
Starflight 74.30 

Starglider 59.90 

Starray 59.80 

Stationfall 88.30 

Stellar Crusade 77.10 

Storm 29.30 

Street Sports 

Baseball 77.10 

Street Sports 

Basketball 66.60 


Might and Magic 89.90 

Moebius 74.30 

Montezumas Revange 49.90 
Motorbike Madness 49.90 

Night Raider 63.50 

Ninja Mission 43.30 

Not a penny more 69.20 

Off Road Racrng 55.70 

Off Shore Warrior 55.70 

One on One II 77.10 

Ooze 77.40 

Operation 

Marketgarden 68.50 

Orbiter 89.90 

Pacmania 64.95 

Paul Whitehead 
Teaches Chess 147.20 
PC Gold Hits 55.70 

Peter Pan 59.90 

Phantasie 103.10 

PHM Pegasus 74.30 

Pirates 69.90 

Playhouse Stnppoker 34.60 
Police Quest 63.50 

Pool of Radiance 59.80 

Portal 86.70 

President is missing 74.30 

Program Wars 68.50 

Psion Chess 77.40 

PT 109 97.60 

Quadralian 77.10 

Questron 2 74.30 

R.Z. Mittelpunkt 
d. Erde 59.80 

Rock'n Wrestle 58.80 

Rockford 67.40 

Rogue 29.90 

Romantic Encounter 83.00 

Saboteur 2 43.30 

Sapiens 74.30 


20.000 Meüen 


Chamonix Challenge 77.40 

unter dem Meer 

59.90 

Championchip Golf 103.80 

2400 AD 

74.30 

Charlie Chaplin 

77.10 

3DHelicopter 

58.80 

Checkmate 

27.80 

4 x 4 Off Road Racing 59.80 

Chessmaster 2000 

79.90 

500 CC Grand Prix 

74.30 

Chuck Yeagers 


Ace 

69.20 

Adv Fl. Trainer 

79.90 

Ace 2 

54.10 

Circus Games 

83.10 

Ace of Aces 

57.00 

Classiques 1 

59.90 

Action Service 

59.90 

Classiques 2 

59.90 

Alternats Reality City 63.50 

Colossus Mah Jong 

59.90 

Ancient Art of War 

77.40 

Computer Baseball 

49.90 

Ancient Art of 


Corruption 

77.40 

War and Sea 

77.40 

Crazy Cars 

59.80 

Apollo 18 

77.10 

Crazy Cars 2 

79 95 

Arctic Fox 

77.10 

Create a Calendar 

59.80 

Arkanoid 

58.80 

Crusade in Europe 

69.90 

Arkanoid 2 

63.50 

Cutthroats 

88.30 

Armageddon Man 

68.50 

D.T. Olympic 


Asterix im 
Morgenland 

59.90 

Challenge 

83.10 

77.40 

B-24 Bomber 

74.30 


55.70 

Bad Cat 



88.30 

Balance of Power 

79,90 


Bard s Tale 1 




Battle for Normandy 

85.80 


74.30 

Battle of Antietam 

85.80 


Bedlam 



119.95 

Biomc Commando 

55.70 


59.80 

Black Jack 

Black Jack Academy 

34.60 

83.00 

Double Dragon 

118.40 

55.70 

Blueberry und das 

59.90 

Dnller 

59.80 



Echelon 

127.50 

Dschungel 

58.80 

Eddy Edwards Sky 

74.30 



Elite 

83.10 


58.80 

Empire 

77.10 

Bobo 

58.80 

Espionage 

64.95 

Boulderdash 1 

29.90 

F-16 Combat Pilot 

79.95 

Boulderdash 2 

29.90 

F-16 Falcon 

109.00 

California Games 

69.90 

F-16 Falcon 


Captian Blood 

69.90 

AT EGA Version 

117.30 




Hostages 

77.40 

Feud 

29.90 

Hot Shot 

63.5t 

Fire & Forget 

69.90 

Impact 

46.40 

Fish 

83.10 

Impossible Mission 

69.90 

Flight S. Disc 1 Texas 

46.40 

Indian Mission 

57.2C 

Flight S. Disc 2 Arizona 46.40 

Indoor Sports 

74.3C 

Flight S. Disc 3 Calif. 

46.40 

Infocom Tnple Pack 

79.90 

Flight S.Disc 4 


Internal Karate Plus 

63.50 

Washington 

46.40 

Jagd auf Roter 


Flight S. Disc 5 Utah 

46.40 

Oktober 

83.1t 

Flight S. Disc 6 Kansas 46.40 

Jeanne D'Arc 

59.80 

Flight S Disc 7 Florida 46.40 

Jet 

109.9C 

Flight S. Disc 11 


Jewels of Darkness 

59.90 

Michigan 

46.40 

Jinxter 

77.40 

Flight S. Disc Japan 

46.40 

Jonah Barnngton's 


Flight S.Disc 


Squash 

34.60 

San Francisco 

46.40 

Kampfgruppe 

59.8C 

Flight S. Western 


Karting Grand Pnx 

46.40 

European 

46.40 

King of Chicago 

97.60 

Telefonische Bestellung: 

( 02305 ) 3770 

(Tag und Nacht) 

1 

Flight Simulator 

123.90 

Kings Quest 3 

59.90 

Flight Simulator 3 

139.40 

Kings Quest 3er Pack 83.10 

Football Director 2 

83.00 

Kings Quest 4 

117.70 

Football Manager 2 

63.50 

Knight Orc 

59.90 

Fourth and Inches 

55.70 

KnightsoftheDesert 68.50 

Frank Brunos Boxing 58.80 

Kobayashi Nam 

29.90 

Freedom 

59.90 

L A. Crackdown 

74.30 

Fugger 

57.20 

Legend of Blacksilvei 109.30 

Galactic Congueror 

79.95 

Leisure Suit Larry 

63.50 

Game Over n 

77.10 

Lombard Rac Ralley 

84.95 

Gamma Games 2 

44.80 

Luky Luke 


Gato 

79.90 

Nitroglyzerin 

57.20 

Gauntlet 

58.80 

Lurking Horror 

88.30 

Gnome Ranger 

43.30 

MacAdam Bumper 

58.80 

Guild of Thieves 

74.30 

Mach 3 

77.40 

Hacker 2 

58.80 

Manhattan Dealers 

74.30 

Hanse 

77.40 

Manhunter Ny 

97.60 

Hardball 

66.60 

Marble Madness 

74.30 

Heli Cat Ace 

58.80 

Metropolis 

59.90 

Hereos of the Lance 

77.10 

Mewüo 

66.60 

Hollywood Hijinx 

88.30 

Microprose Soccer 

77.10 
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.80 

.90 

.90 


1,80 

1.95 

180 

1.80 


Wahnsinn! 


Amstrad PC 1640 mit 2 Lauf¬ 
werken, S/W-Monitor + Drucker 
LQ 3500 (24 Nadeln, 160 Z/Sec.) 


+ World of Word 

dt. Textprogramm 

komplett nur 


2498 ; 


Software _ 

Kirschbaum-Lmk 168.00 

Norton Commander 229.00 

Norton Advanced Utilities 278.00 
PC Tools Deluxe 148.00 

CGA-Emulation f. d. 
monochromen Monitor: 

Multiscreen 1640 89.00 

Multiscreen Euro PC 89.00 


Schneider _ 

EuroPC ab 1298.00 

EuroPC 5’A " LW 398,00 

EuroPC 3Yt" LW 398,00 

EuroPC 20 MB Festplatte 998.00 
Telefax 1998.00 



Modell TowerAT System 220 

CPU: 80286 

CPU-Clock 10 MHz. 0 Waitstaie. Landmark. 13 MHz 

Co-Prozessor: 80287, optional 
Haupt- RAM 512KB.aufderHauptplatme 

Speicher erweiterbar auf 1 MB, ROM : 96 KB, 

Phoenix-Bios und EGA-Bios 
Disketten- Ein oder zwei Laufwerke 3.5" mit 720 KB 

laufwerk Optional ein externes 6,25''-Laufwerk 

mit 360 KB 

Festplatte' 3.5' -Magnetplattenlaufwerkmit20MB 

Video- Auf der Hauptplatine integrierter Mulü- 

adapter funktions-Grafik-Chip für folgende Modi 

und Auflösungen (Auto-Switch): 
Hercules, CGA, EGA, Hi-res EGA mit 
bis zu 800x600 Punktenu 16/64Farben 
Ausstattung: battenegepufferte Echtzeitulu 

- Reset-Taster 

- Komfortables Setup-Menü zur 
Hardware-Konfiguration und 
Einstellung des Video-Modus 

Tastatur: 102 Tasten (MF-kompatibel) 

Betriebs¬ 
system MS-DOS 3.3, GW-BASIC 


Mitgelieferte Integriertes Anwendungspaket 
Software: MICROSOFT*-WORKS (Textverar¬ 

beitung, Datenbank. Kalkulation, 
Kommunikation, Grafik), 

Versionen. 

TowerAT 201 - 1 Diskettenlaufwerk 
TowerAT 202- 2 Diskettenlaufwerke 
TowerAT 220 - 1 Diskettenlaufwerk + 1 Festplatten¬ 
laufwerk 

MM12 - Monochrome Monitor 12" 

CM14 Farb-Monitor 14" Büdschirmdiagonale 
MS14 - Mulüsync ab DM 2499.- 


Modell TowerAT System 260 


CPU-Clock 

Haupt¬ 

speicher: 

Disketten¬ 

laufwerk 

Festplatte: 

Monitor: 


12.5MHz,OWaitstate. 
Landmark 16,5MHz 


RAM: 1MB 

Ein Laufwerk 3,5 Zoll mit 1,44 MB 
(formatiert) 

3,5 Zoll Festplattenlaufwerk mit 60 MB 
formatiert, mittlere Zugriffszeit 25 ms, 

Muhisync D M 6998.- 


,00 


ll 


I» 



Ladengeschäftszeiten: 
Montag-Freitag 9.00 - 13.00 Uhr 
15.00 - 18.30 Uhr 
Samstag 9.00 - 14.00 Uhr 
Langer Samstag 9.00 — 18.00 Uhr 


Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch.-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 5, DM Ver¬ 
sandkosten. 


Ausland nur per Vorkasse auf Psch.-Kto. zuzügl. 10, DM Versand¬ 
kosten. Bitte bei allen Bestellungen Computertyp angeben! 


Besuchen Sie unser Ladengeschäft und lassen Sie sich durch 
unser geschultes Fachpersonal beraten. Wir haben laufend 
günstige Angebote und stark reduzierte Vorführgeräte. 




O Senden Sie mir bitte Ihren Katalog 
(2,— DM in Briefmarken liegen bei) 
Hiermit bestelle ich 
O per Nachnahme O per Vorkasse 
O Incl. kostenlosem Katalog 

Vorname. Name 

Slraße, Hausnummer 

PLZ, Ort 

Computer- und Monitortyp 


BESTELLSCHEIN 



Irrtumer und Preutändeiungen voibehaUen 


Datum, Unterschrift 














SHIFT + f7: Zeigt den nächsten Teil 
des Sektors an. Da aufgrund der be¬ 
grenzten Größe des Bildschirms nur 
256 Byte auf einmal dargestellt werden 
können, kann mit dieser Option die 
nächste Seite des Sektors betrachtet 
werden. Standardsektoren (512 Byte) 
bestehen also aus zwei, die größtmögli¬ 
chen Sektoren aus 16 Bildschirmteilen. 
ESCape: Nach dem Drücken von ESC 
wird ein Basic-Warmstart durchge¬ 
führt. Weder ein eventuell von Ihnen 
geschriebenes Basic-Programm noch 
DMON mit seinen Daten werden dabei 
zerstört. Durch CALL &8A00 können 
Sie DMON von Basic aus erneut auf- 
rufen. 


Programmierung in Assembler 


Das nachfolgende Assembler-Pro¬ 
gramm wurde mit dem GENA-Assem- 
bler erstellt, es ist jedoch so gehalten, 
daß auch andere Assembler ihn mühe¬ 
los verarbeiten können, darunter auch 
der Assembler aus Heft 6/88. Bei die¬ 
sem Assembler müssen Sie nur noch 
folgende Regeln beachten: 


— Alle Zeilen müssen nach der Zeilen¬ 
nummer mit einem Hochkomma ’ 
beginnen. 

— Einige Assembler-Spezialkomman¬ 
dos müssen etwas abgeändert wer¬ 
den, dieses sind: 

DEFB wird geändert in DB, 

DEFS wird geändert in DS, 

DEFW wird geändert in DW. 

(siehe auch PC International 6/88) 

Wenn Sie diese Regeln beherzigen, 
gibt es bei der Eingabe der Programme 
kein Problem. 

Und somit wünschen wir Ihnen viel Er¬ 
folg bei der Untersuchung Ihrer Dis¬ 
ketten, vielleicht sind Sie jetzt auf den 
Geschmack gekommen, es selbst ein¬ 
mal mit der Floppyprogrammierung in 
Assembler zu versuchen. Und nicht 
vergessen, immer eine Sicherheitsko¬ 
pie zum Untersuchen nehmen, denn 
Sie wissen ja: Selbst das beste Pro¬ 
gramm schützt nicht vor falschen Ent¬ 
scheidungen. 

(Christoph Hipp/Alexander Knopp/ 
Ulrich Weiß/jb) 


Wir haben uns im Heft für den 
Abdruck des Quelltextes ent¬ 
schieden, um den Assembler¬ 
freunden und denen, die es noch 
werden wollen, eine Möglich¬ 
keit zu geben, effektive Pro¬ 
grammierung in Maschinen¬ 
sprache anhand eines nachvoll¬ 
ziehbaren und dokumentierten 
Listings zu üben, und damit ei¬ 
nem Wunsch vieler CPC-Besit- 
zer stattgegeben. 

Für diejenigen, die in der As¬ 
sembler p rog ram m ieru ng 'nicht 
so zu Hause sind' bieten wir auf 
der Databox außer dem Quell¬ 
text zum Assembler auch noch 
einen Basic-Lader mit dem Pro¬ 
gramm an. den Sie mit 'RUN' 
starten können und der Ihnen 
das fertige Programm erzeugt. 


AUTORISIERTER FACHHÄNDLER DER MARKEN: 



Schneider vieren 

copputerD ivision toComputeIÜIu;ker COMPUTER 


Wir führen alle Artikel der oben genannten Hersteller! Rufen Sie uns an! Fragen 
Sie nach unserem Preis! Wir liefern sofort ab Lager! Schneilieferung per UPS! 

AMSTRAD CPC, PCW, PPC. PC, AT. 386, DMP 
Schneider Euro PC. TOWER AT SPrinter 
Star LC 10, LC 2410. NB 2410 
Victor • Computer 

Farbbänder und Zubehör! Disketten FUJI und MAXELL ab LAGER. 
Rufen Sie uns an! Fragen Sie nach unserem aktuellen Preis! 
Schriftliche Anfragen können leider nicht berücksichtigt werden! 


unikat COMPUTERVERTRIEB 

MÜHLENSTR. 2 • D - 3040 SOLTAU 

TEL. (O 51 91) 1 32 44 - TAO UND NACHT 


unikat 


Anwendungsprogramme 
für CPC oder JOYCE 

ADRESCOMP Adressendateiprogramm 58.- DM 

COMFORM Überweisungsformulare bedrucken 48.- DM 

DATENREM die universelle Dateiverwaltung 68,- DM 

ETATGRAF Haushaltsbuch mit Grafik 58,- DM 

FIBUCOMP Buchführung 98,- DM 

FIBUPLAN Buchführung mit MwSt-Berechnung 148,- DM 

KALKUREM Tabellenkalkulation (Version 2.0) 78,- DM 

LAGDAT praktisches Lagerdateiprogramm 68,- DM 

PROFIREM Rechnungen, Lager-Kundendatei 136,- DM 

TEXTKING Textprogramm (nur CPC) 78,-DM 

VOKABI universeller Vokabeltrainer 58,- DM 

Programme jeweils auf 3"-Diskette. Versand per Vorkasse (portofrei). 
Nachnahme (plus 5 DM), Oder fordern Sie nur unser Info für CPC bzw. Joyce an. 

VAN DER ZALM-SOFTWARE 

Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 4461 / 55 24 


DELO Computertechnik 

AMSTRAD und vortex Vertragshändler 
UNIC Microsoft und NEC Fachhändler 

AMSTRAD PPC 512 . ab 1699.- 

AMSTRAD PC 1512 S MONO .... ab 1399.- 
Monochrom-Monitor MD für PPC 512 399.- 

PC1640 1 Lauf werk . Monochrom 1899.- 

PC1640 1 Laufwerk Monochrom-Monitor 

und 30 MB Festplatte (Filecard). 2548.- 

mit 20 MB Festplatte (Filecard). 2398.- 

AMSTRAD PC 2086 . ab 2499.- 

AMSTRAD Drucker DMP3160 . 599.- 

AMSTRAD Drucker LQ 3500 . 899.- 

Panasonic Drucker KX-P 1081 . 479.- 

Festplattenkit Seagate 30MB 648.- 
Diskettenlaufwerke 3,5" 1MB für Joyce 
komp. Anschlußfertig . 265.- 

Vortex Festplatten für PC 1640. 

für Joyct/PCW PPC 51 2 u. EURO PC 

20 M B . 1348.- 20 M B . 1398.- 

30 M B . 1498.- 30 M B . 1598.- 

60 M B . 2048.- 60MB . 2198.- 


komp. Anschlußfertig . 265.- 

Vortex Festplatten für PC 1640. 

für Joyct/PCW PPC512 u. EURO PC 

20 M B . 1348.- 20 M B . 1398.- 

30 M B . 1498.- 30 M B . 1598.- 

60 M B . 2048.- 60MB . 2198.- 

Filecard's Seagate für PC 1512 u. PC 1640 

20 M B . 729.- 30 M B . 829.- 

Nashua Disketten 5.25" 2D . 16.- 

Diskettenlaufwerk 3,5" 720kB und 5,25" 

Einbaurahmen . 249.- 

Super Mouse lOOX MS kompatibel 79.- 

Ab 500.-DM Bestellwert Porto und Verpackung frei. 

Preisliste anfordern. Änderungen Vorbehalten. 

4600 Dortmund 15 Kranenbusch28 

•ST 0231 /356511 
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Assembler—| 


für 464-664-6128 



10 ; 


20 

; * » » 

# * * 

****•« 

» * * * * 

30 

;* Dtskettenmonitor vl.3 

1988 * 

40 

;* (c) 

by Mercurysoft * 


50 

60 

; * * » 

i 

* * * 

***#*■ 

* * » * * 

70 

80 

; Variablendeklaration 


90 

pr1n t: 

equ 

»8B5 A 


100 

1ocate 

equ 

«BB75 


110 

getcur 

equ 

»BB78 

Cursorpositicn holen 

120 

wcha r: 

equ 

«BB06 

auf Taste warten 

130 

c 1 s : 

equ 

»BB6C 


140 

wt ndow 

equ 

SBB66 

Window definieren 

150 

strsel 

equ 

«BBB4 

Window selektieren 

160 

paper: 

equ 

«BB96 


170 

pen: 

equ 

«B890 


180 

cu ron: 

equ 

«BB81 


190 

curoff 

equ 

«BB84 


200 

kmsete 

equ 

«BB0F 

KM set expand 

210 

kmsets 

equ 

«BB2D 

KM set expand 

220 

databl 

equ 

*9600 

Datenablage 

230 

240 


org 

ent 

»BAOO 

$ 

Start 


250 ; 

260 ; Tastaturbelegung 

270 ; 


280 

Start: 

Id 

e , 4 

; « Tasten werden 





definiert 

290 


ld 

b, 141 

; Funkti onszeichennummer 

300 


ld 

C i 1 

; Laenge der Zeichenkette 

310 


ld 

hl , tastab 

; Pointer auf Tastatur- 





tabe 1 1 e 

320 

tasbe: 

pu3h 

bc 

; BC retten 

330 


push 

de 


340 


push 

hl 


350 


ca 1 1 

kmsete 

; KM set expand 

360 


pop 

hl 


370 


pop 

de 


380 


pop 

bc 

; Register zurueckholen 

390 


i nc 

b 


400 


1 nc 

hl 

; Pointer erhoehen 

410 


dec 

e 


420 


ld 

a, e 


430 


or 

a 

; alle? 

440 


ir 

nz,tasbe 

; nein 

450 


ld 

a. *0F 

; Tastennummer 

460 


ld 

b. 141 

, neue zugeordnete 





Uebersetzung 

470 


cal 1 

* kmsets 

; KM set shift 

480 


ld 

a , *0D 


490 


ld 

b, *8E 


500 


call 

kmsets 


510 


ld 

a , «14 


520 


ld 

b,*8F 


530 


cal 1 

kmsets 


540 


ld 

a . *0A 


550 


ld 

b, «90 


560 


cal 1 

kmsets 


5 70 

; 




580 

; Fehlermeldung ausschalten 

590 

; 




600 


ld 

a , «FF 

; Meldung aus 

610 


ld 

(«8E78J,a 

; ablegen 

620 


ld 

a , «05 

; Anzahl der Leseversuche 

630 


ld 

(»BE66),a 


640 

: 




650 

; Bildschirmaufbau 


660 

: 




670 


ld 

hl ,sc reen 

; HL:= Pointer auf 





Bi 1dschirmdaten 

680 


call 

prout 

; Printroutine aufrufen 

690 


ld 

a, «01 

; Window 1 

700 


call 

strsel 

1 selektieren 

710 


ld 

hl , *0010 

; linke obere Ecke 

720 


ld 

de , «4F18 

; rechte untere Ecke 

730 


call 

wi ndow 

; definiere Window 

740 


ld 

hl,menue 

; HL:= Pointer auf 





Menuedaten 

750 


cal 1 

prout 

; Menue printen 

760 


xor 

a 

; Ak ku : = 00 

770 


call 

strsel 

; Window 0 definieren 

780 


ld 

hl , screel 

; Copyright Vermerk + 





Vers 1Onsn r. 

790 


call 

prout 


800 


ld 

hl , »0000 

; linke obere Ecke 

810 


ld 

de,»430F 

; rechte untere Ecke 

820 


cal 1 

wi ndow 

; definiere Window 

830 


ld 

a . «01 


840 


cal 1 

pape r 

; Paper 1 

850 


xor 

a 

; A : =0 

860 


cal 1 

pen 

; Pen 0 


870 


cal 1 

C 1 3 

oberen Bildschirm 





1oeschen 

880 


xor 

a 


890 


ld 

(spur),a 

Spu r 0 

900 


i nc 

a 


910 


ld 

(sec ) , a 

Sektor 1 

920 


ld 

(tei1 ) ,a 

Tei 1 1 

930 


cal 1 

1essec 


940 

; 




950 

; Tastaturabfrage (Menue) 

960 

; 




970 

tasab: 

cal 1 

cu ron 


980 


call 

wchar 

Befehlstaste druecken 

990 


cp 

* FO 

Pfeil auf ? 

1000 


jp 

z.mybyte 

ja. dann zu Minus y-Byte 

1010 


cp 

«Fl 

Pfeil ab ? 

1020 


3P 

z.pybyte 

Ja, dann zu Plus y-Byte 

1030 


cp 

« F 2 

Pfei1 1inks ? 

1040 


jp 

z.mxbyte 

ja. dann zu Minus x-Byte 

1050 


cp 

» F 3 

Pf e •1 rechts ? 

1060 


jp 

z , pxby te 

ja. dann zu Plus x-Byte 

1070 


cal 1 

cu ro ff 

Cursor aus 

1080 


qp 

«E5 

SHIFT + f 7 gedrueckt ? 

1090 


cal 1 

z,atdsec 

Anderer Teil des Sektors 

1100 


cp 

* E 4 

SHIFT + f4 gedrueckt ? 

1110 


cal 1 

z,abspds 

Sektor abspeichern 

1120 


cp 

*E3 

SHIFT + fl gedrueckt ? 

1130 


call 

z , diranw 

Diroktanwaehlen eines 





Sektors 

1140 


cp 

» E 2 

SHIFT + fO gedrueckt ? 

1150 


JP 

z,hexasc 

hex - ascii Umschaltung 

1160 


cp 

«FC 

Escape ? 

1170 


cal l 

z,escape 


1180 


cp 

» F 4 

SHIFT ♦ Cursor auf 

1190 


cal 1 

z,pspu r 

Spur + 1 

1200 


cp 

* F 5 

SHIFT + Cursor ab 

1210 


call 

z , mspu r 

Spur - 1 

1220 


cp 

* F 6 

SHIFT + Cursor links 

12 30 


cal 1 

Z , msec 

Sektor - 1 

1240 


cp 

# F 7 

SHIFT + Cursor rechts 

1250 


cal 1 

z, psec 

Sektor + 1 

1260 


ld 

b, a 

E1ngabe in b 





Zwischenspeichern 

1270 


ld 

a , ( ha f1ag) 

Cursor im Hex.- od. 





ASC11-8lock ? 

1280 


cp 

2 

ASCII ? 

1290 


ld 

a , b 


1300 


i' 

z , tasabl 

Ja 

1310 


cp 

*30 

Kleiner 0 ? 

1320 


ir 

c , tasab 

Ja, ungueltige Eingabe 

1330 


cp 

* 3A 

Kleiner/Gl eich 9 ? 

1340 


jp 

c,biver 

Bufferinhalt veraendern 

1350 


res 

5 . a 

Grossbuchstaben 

1360 


cp 

«41 

Buchstabe ? 

13 70 


jr 

c , tasab 

Ne i n 

1380 


cp 

«47 

Buchstabe ? 

1390 


jP 

c,biver 

Ja 

1400 


jr 

tasab 


1410 

t a s a b 1 

cp 

»20 

Steuerzeichen ? 

1420 


jr 

c,tasab 

Ja 

1430 


JP 

bivera 

Bufferinhalts¬ 





veraenderung bei ASCII 

1440 





1450 

escape 

ld 

c , «00 


1460 


cal 1 

«b90f 

ROM ein 

1470 


ld 

c , »00 


1480 


cal 1 

*b915 

KL PROBE ROM 

1490 


ld 

a , h 

Ve rsionsnr. holen 

1500 


or 

a 

= 0 ? 

1510 


jp 

Z , «C064 

464 

1520 


jp 

»C058 

664/6128 

1530 

; 




1540 

; Spur/Sektor - Behandlung 

1550 

; 




1560 

msec: 

ld 

a , ( sec ) 

Sektor holen 

1570 


dec 

a 

vermindern 

1580 


or 

a 

= 0 ? 

1590 


jr 

z ,msec3 

dann Spur zurueck 

1600 

msec 1 : 

ld 

(sec ) , a 

sonst Sektor ablegen 

1610 


jp 

1 essec 

Sektor lesen 

1620 

msec 3: 

dec 

a 

Sektor = 255, fuer CP (HL) 

1630 


ld 

( sec ) , a 


1640 





1650 

mspur: 

ld 

a, (spur ) 

Spur holen 

1660 


dec 

a 

vermindern 

1670 


cp 

255 

Spu r = -1 ? 

1680 


jr 

nz,mspu r 1 

weiter 

1690 


ld 

a , 41 

dann Spur=41 

1700 

mspu r 1 

ld 

(spu r ) , a 

ablegen 

1710 


cal 1 

esm 

Ermittlung von secmax 

1720 


ld 

a,(secmax) 

secmax holen 

1 730 


ld 

hl,sec 


1 740 


cp 

(hl ) 

mit Sektor vg1. 

1750 


jr 

nc,mspu r 2 

secmax > sec 

1760 


ld 

(hl ) ,a 


1770 

mspu r 2 

j P 

lessei 

Sektor lesen 

1780 





1 790 

psec : 

ld 

a, (sec) 
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1800 


ld 

hl , secmax 

; 

max. Sektoranz. 

1810 


cp 

(hl ) 

; 

sec = secmax 

1820 


Jr 

2 , psecl 



1830 


i nc 

a 

; 

e rhoehen 

1840 


jr 

msec 1 



1850 

psec l : 

ld 

a, 1 

j 

sonst sec=l 

1860 


ld 

(sec) ,a 

; 

ablegen 

1870 






1880 

pspu r: 

ld 

a,(spur) 



1890 


t nc 

a 



1900 


cp 

42 

; 

m.t 42 vgl. 

1910 


Jr 

nz,mspu r 1 



1920 


xor 

a 

; 

sonst Spur 0 

1930 


Jr 

»spur 1 



1940 

; 





1950 

; Spur/Sektor/Tei1 ausgeben 

1960 

; 





1970 

andms: 

1 da , 1 



1980 


cal 1 

strsel 

; 

Window #1 einschalten 

1990 


ld 

hl , #4804 



2000 


cal 1 

1 ocate 



2010 


ld 

a , (spur) 

; 

Spur 

2020 


cal 1 

andms1 


ausgeben 

2030 


ld 

hl.#4806 



2040 


cal 1 

1 ocate 



2050 


ld 

a , ( sec ) 

; 

Sektor 

2060 


cal 1 

andms 1 



2070 


Id 

hl . #4808 



2080 


cal 1 

1 ocate 



2090 


ld 

a, (teil ) 

; 

Tel 1 

2100 


cal 1 

andms 1 



2110 


xor 

a 



2120 


cal 1 

strsel 


Window #0 

2130 


ret 




2140 

andms1 

cp 

# 0 A 


AKKU >10 ? 

2150 


Jr 

nc,andms2 

; 

ja 

2160 


ld 

b , a 


AKKU retten 

2 170 


ld 

a , »30 


"0" 

2 180 


cal 1 

prlnt 

; 

ausgeben 

2190 


ld 

a , b 

; 

AKKU zurueck 

2200 

andms2 

ld 

b i # F F 

; 

Zehnerzaeh1er=-l 

2210 

andms3 

1 nc 

b 

; 

erhoehen 

2220 


sub 

# 0 A 

; 

10 abziehen 

2230 


Jr 

nc . andms3 



2240 


ado 

a , # 3 A 

J 

" 0"+10 addieren 

2250 


push 

af 

; 

AKKU auf Stack 

2260 


ld 

a, b 



2270 


o r 

a 

; 

AKKU=0 ? 

2280 


cal 1 

n 2 , andms2 

; 

naechste Ste11e 






behände 1n 

2290 


pop 

af 

; 

AKKU zurueck 

2300 


call 

print 



2310 


ret 


; 

zurueck 

2320 

1 





2330 

; Full* 

Sc reen-Ed1tor 



2340 






2350 

mybyte 

ld 

a , ( ypos ) 


Akku mit y-Koordmate 






laden 

2360 


ld 

hl , (zbsb) 

i 

HL:= Pointer auf 






Sektorbuf fer 

2370 


cp 

#01 

* 

Ist Cursor in oberster 






Zeile ? 

2380 


Jr 

z.mybytl 

• 

J« 

2390 


dec 

a 


Zei1e=Ze1le-1 

2400 


ld 

bc,#10 



2410 


sbc 

hl , bc 

• 

Pointer um 16 Bytes 






orniedrigen 

2420 


Jr 

pmyb 

« 

+/- y-Byte 

2430 

mybytl 

ld 

a, 16 

• 

1etzte Zeile 

2440 


ld 

bc,#F0 



2450 


add 

hl , bc 


Pointer um 240 Bytes 






erhoehen 

2460 


Jr 

pmyb 

■ • 

• 

+/- y-Byte 

2470 






2480 

pybyte 

ld 

a, ( ypos > 



2490 


ld 

hl, ( zbsb) 



2500 


cp 

#10 


1etzte Zeile ? 

2510 


J r 

2 , pyby 1 1 


j a , dann 1 . Spa 1te 

2520 


1 nc 

a 


Zei1e=Ze11e+1 

2530 


ld 

bc , #10 



2540 


add 

hl , bc 


Pointer um 16 Bytes 






erhoehen 

2550 


Jr 

pmyb 


+/- y-Byte 

2560 

pybytl 

ld 

a. 1 


1 . Zeile 

2570 


ld 

bc , #F0 



2580 


sbc 

hl , bc 


Pointer um 240 






erniedrigen 

2590 

pmy b : 

ld 

(ypos) , a 


y-Koordinate speichern 

2600 


Jr 

prpos2 


Position printen 

2610 






2620 

mxbyte 

ld 

a , (xpos ) 


x-Koordinate holen 

2630 


ld 

hl , (zbsb) 


HL:= Pointer auf 






Sektorbuffer 

2640 


cp 

*01 


1. Spalte ? 

2650 


Jr 

z , mxbyt1 


Ja 

2660 


dec 

a 



2670 


dec 

a 
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2680 


dec 

a ; 

x-Koordinate um 1 
erniedrigen 

2690 


ld 

(xpos),a ; 

x-Koordinate speichern 

2700 


ld 

a,(xxpos) ; 

2. x-Koordinate (ascil- 
Block) holen 

2710 


dec 

a,- J 

und J ewe11s 

2720 


dec 

bl ; 

um 1 erniedrigen 

2730 


Jr 

pmxb ; 

+/- x-Byte 

2740 

mxby 11 : 

ld 

a , # 2 E ; 

x-Koordinate auf letzte 
2er Spa 1te 

2750 


ld 

(xpos),a 

und retten 

2760 


ld 

a.#42 ; 

asci1-Koordinate auf 
letzte Spalte 

2770 


ld 

bc,#0F 


2780 


add 

h 1 .bc ; 

polnter um 15 erhoehen 

2790 


Jr 

pmxb ; 

+ /- x-Byte 

2800 

2810 

pxbyte; 

ld 

a,(xpos) i 

x-Koordlnate holen 

2820 


ld 

hl . (zbsb) ; 

Pointer auf Sektorbuffer 
nach HL 

2830 


cp 

# 2 E j 

letzte Spalte ? 

2840 


Jr 

z , pxbytl ; 

Ja 

2850 


1 nc 

a 


2860 


i nc 

a 


2870 


1 nc 

a ; 

x-Koordinate um 3 
erhoehen 

2880 


ld 

(xpos),a ; 

und speichern 

2890 


ld 

a , (xxpos) ; 

2. x-Koordinate (ascii) 
ho 1 en 

2900 


i nc 

a ; 

und um jeweils 

2910 


i nc 

hl ; 

1 erhoehen 

2920 


Jr 

pmxb ; 

+ /- x-Koordinate 

2930 

pxbytl: 

ld 

a,l ; 

1. Spalte 

2940 


ld 

(xpos),a 


2950 


ld 

a , # 33 ; 

2. x-Koordinate auf 1. 
Spalte setzten 

2960 


ld 

bc,#0F 


2970 


sbc 

hl,bc ; 

Pointer um 15 
ern1ed r1 gen 

2980 

pmxb: 

1 d 

(xxpos),a ; 

+/- x-Byte 

2990 

prpos 2 : 

ld 

(zbsb) ,hl ; 

2.x-Koordinate speichern 

3000 

prpos: 

ld 

hl,(ypos) ; 

h/1 mit x/y - Koordinate 

3010 


ld 

a.(haf1ag ) ; 

Cursor im Hex.-block ? 

3020 


cp 

«01 


3030 


Jr 

z , prposl ; 

Ja 

3040 


ld 

a , (xxpos) 


3050 


ld 

h , a ; 

«-Koordinate ins H- 
Register 

3060 

prpos 1 : 

call 

locate ; 

Position ausgeben 

3070 

3080 


JP 

tasab ; 

zur Tastaturabfrage 

3090 

; Buffertnhalt veraendern 


3100 

3110 

blve ra. 

cal 1 

print ; 

Eingegebenes Zeichen 
prlnten 

3120 


ld 

hl,(ypos) ; 

Cursorposition nolen 

3130 


ld 

e , a ; 

Zeichen retten 

3140 


cal 1 

locate ; 

Cursor im Hex.-Block 
position 1 e ren 

3150 


ld 

a , e ; 

Zeichen zurueckholen 

3160 


cal 1 

hexum ; 

ln Hex. umwandeln und 
ausgeben 

3170 


ld 

a , e ; 

Zeichen in Akku und im 

3180 


Jr 

biverS 

Buffer eintragen. 

Pointer neu setzten 

3190 

3200 

biver : 

cal 1 

print ; 

Zeichen ausgeben 

3210 


sub 

#30 ; 

CHR$-Wert abziehen 

3220 


cp 

#10 ; 

Zahl ? 

3230 


Jr, 

c , b 1 v e r 1 ; 

Ja 

3240 


sub 

• 07 ; 

Wegen Buchstaben 

3250 

blverl: 

sl a 

a 


3260 


sla 

a 


3270 


s 1 a 

a 


3280 


sl a 

a ; 

Weg rot 1e ren 

3290 


ld 

b, a 


3300 

b1ve r 2: 

ca 1 1 

curon ; 

Cursor ein 

3310 


call 

wchar ; 

Zweiten Wert eingeben 

3320 


cp 

« 7 F ; 

0EL ? 

3330 


rn 

z . biver5 ; 

Ne t n 

3340 


cal 1 

getcur ; 

CursorpositiOn holen 

3350 


dec 

h ; 

x-Koordinate um 1 
erniedrigen 

3360 


cal 1 

locate ; 

und Cursor neu 
positionieren 

3370 


JP 

tasab ; 

Zurueck zur 
Tastaturabfrage 

3380 

bi v e r 5 

cp 

#30 ; 

< 0 ? 

3390 


Jr 

c . biver2 ; 

Ja 

3400 


cp 

#3A ; 

Zahl ? 

3410 


Jr 

c . biver3 ; 

Ja 

3420 


res 

5 . a ; 

Grossbuchstaoen 

3430 


cp 

#41 ; 

< A ? 

3440 


jr 

c , biver 2 ; 

Ja 

3450 


cp 

«47 ; 

< F ? 

3460 


Jr 

nc.biv e r 2 ; 

Ne 1 n 

34 70 

bive r3 

cal 1 

print ; 

Zeichen ausgeben 

3480 


sub 

»30 ; 

CHR$-Wert abziehen 
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CPC Software für alle Fälle 


Für alle CPCs nur 
als 3“Diskette 


FRUITS 

- Als Bauernsohn Frank jun. ist es Ihre 


Autor: Matthias Uphoff 


Copyshop 


5 1/4“-Vortex (Best.-Nr. 203) 


Action-Adventure für alle CPC's 


sensgebiet am Ende noch Zusatz¬ 
punkte bekommt • wurde mit äußerst 
schnellen Suchroutinen ausgestat¬ 
tet, die verhindern, daß eine schon 
richtig beantwortete Frage nochmals 
erscheint • ist spielbar mit 1-4 Ein¬ 
zelspielern oder in Gruppen mit ei¬ 
nem Vielfachen davon • erkennt au¬ 
tomatisch, welche Fragenblöcke auf 
der Diskette noch unbeantwortet sind 
• zeichnet sich nicht nur durch die 
o.g. Punkte als höchst zukunftssi¬ 
cher aus! 

für CPC 464 • 664 ■ 6128 ,T\a/ 
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kann eine unbegrenzte Anzahl von 
Fragen und Antworten verwalten • 
hat ständig ca. 400 Fragen plus Ant¬ 
worten im Speicher • bietet die Mög¬ 
lichkeit, eigene Fragen einzugeben, 
und zwar mit einem komfortablen 
Editor • besitzt eine Supergrafik mit 
Window-Technik • ist vollkommen 
menuegesteuert • zeigt bis jetzt 
noch nie dagewesene Tricks mit dem 
Videocontroller • stellt zu jeder Fra¬ 
ge 5 mögliche Antworten vor • kann 
man mit der ganzen Familie spielen, 
da jeder eine Mindest-Chance von 
1-5 hat • muß man mit Strategie 
spielen, da der Beste in jedem Wis¬ 


sest. -Nr. 103 
Diskette 3“ 
Best.-Nr. 104 


CPC Power-Spiele-Paket 

18 tolle Spiele für Ihren CPC 464,664 
oder 6128 v k K A , 


zum Sonderpreis 


4 Disketten 3' 

Best.-Nr 102 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung 
(unverbindliche Preisempfehlung) Bitte benutzen Sie die Bestellkarte. 
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Ic 


/ 

-r 

ICYRUS II SCHACH 1 ,— 

STARTEST 


r~ Assembler 


3490 


cp 

BOA 

Zahl ? 


4320 

ld 

(spur),a 

3500 


Jr 

C,biver4 

Ja 


4330 

ld 

hl,*4804 

3510 


sub 

*07 

Wegen Buchstaben 


4340 

ca 1 1 

1 ocate 

3520 

biver4 

add 

a , b 

Wert berechnen 


4350 

ca 1 1 

cu ron 

3530 

bi ver9 

ld 

hl,(zbsb) 

Pointer holen 


4360 

call 

wchar 

3540 


ld 

(hl ) ,a 

und Wert ablegen 





3550 


Id 

a,(xpos) 

x-Koordinate holen 


4370 


*35 

3560 


cp 

* 2 E 

Letzte Spalte ? 


4380 

Jr 

nc,d 1 r an 1 

3570 


Jr 

nz,blve r 6 

Ne i n 


4390 

cp 

*30 

3580 


ld 

a , 1 

x-Koordinate auf 1 


4400 

jr 

c,diranl 





setzen 


4410 

cal 1 

pri nt 

3590 


ld 

(xpos) , a 

und slche rn 





3600 


ld 

a, *34 

2. x-Koordinate (ASCII) 


4420 

sub 

#30 





ruecksetzten 


4430 

Jr 

z,dlr an 3 

3610 


ld 

(xxpos ) , a 

und sichern 


4440 

ld 

b, a 

3620 


ld 

a , *43 

letzte Spa 1te 





3630 


ld 

bc,HOF 



4450 

xor 

a 

3640 


sbc 

hl , bc 

Pointer um 15 
erniedrigen 


4460 

diranz: add 

a . #0A 

3650 


ld 

(zbsb),hl 

und sichern 


44 70 

djnz 

diran 2 

3660 


add 

h 1 , bc 

und wieder erhoehen 


4480 

ld 


3670 


j r 

biver7 



4490 

diran3: call 

wchar 

3680 

biver6 

1 nc 

a 



4500 


* 7 F 

3690 


i nc 

a 



4510 

jr 

z , d i ran I 

3700 


1 nc 

a 

x-Koordinate um 3 


4520 


• 30 





erhoehen 


4530 

jr 

c,diran3 

3710 


ld 

(xpos ) .a 

und sichern 


4540 

cp 

* 3 A 

3720 


ld 

a,(xxpos) 



4550 

Jr 

nc,diran3 

3730 


1 nc 

a 

um 1 erhoehen 


4560 

cal 1 

print 

3740 


ld 

(xxpos),a 

und wieder sichern 


4570 

sub 

#30 

3750 


dec 

a 

und wieder um 1 


4580 

ld 

hl,spur 





erniedrigen 


4590 

add 

a. (hl ) 

3760 


1 nc 

hl 

Pointer um 1 erhoehen 


4600 


#2A 

3770 


ld 

(zbsb),hl 

und sichern 


4610 

jr 

nc , diran3 

3780 


dec 

hl 

und wieder erniedrigen 


4620 

ld 

(hl),a 

3790 

bi ve r 7 

ex 

de , hl 

OE und HL (Inhalt) 


4630 

cal 1 

esm 





austauschen 


4640 

xor 

a 

3800 


ld 

h, a 

x-Koordinate ins 


4650 

ld 

(sec) , a 





H-Register 


4660 

ld 

a,(seemax) 

3810 


ld 

a, (ypos ) 

y-Koordinate holen 


4670 

Id 

c , *31 

3820 


ld 

1 . a 

und Ins L-Register 


4680 


*0A 

3830 


call 

1ocate 

Cursor positionieren 


4690 

jr 

c , diran6 

3840 


ld 

a,(de ) 

Eingegeben Wert holen 


4700 

ld 

hl . *4806 

3850 


cp 

*20 

Steuerzeichen ? 


4710 

cal 1 

locate 

3860 


Jr 

nc,biver8 

Nei n 


4720 

ld 

b, #01 

3870 


ld 

a, *2E 

Punkt wegen 


4730 

d i ran 7: ine 

b 





Steue r zeichen 


4740 

sub 

#0A 

3880 

bi ver8 

ca 11 

prl nt 

und ausgeben 


4750 

jr 

nc,diran 7 

3890 

3900 


JP 

prpos 

Position ausgeben 


4760 

ld 

a , b 

3910 

; Anderer Teil des Sektors 


47 70 

add 

a. #30 

3920 

3930 

atdsec 

ld 

a.(secgr) 

Akku mit Sektorgroesse 


4780 

4790 

ld 

dirane : call 

b, a 
wcha r 

3940 


cp 

*01 

Se k to rg r.= 1 (256 Bytes)? 


4800 

cp 

jr 

#7F 



jp 

z,tasab 

Nur ein Teil 


4820 


3960 


cp 

*02 

Sektorgr.=2 (512 Bytes)? 




3970 

3980 


jr 

cp 

z,atdsel 
*03 

Sektorgr.=3 (1024 


4830 

Sr 

nc,diran6 





Bytes)? 


4850 

jr 

c , d i r a n 8 

3990 


Jr 

nz . atdse2 



4860 

cal 1 

pr i nt 

4000 


1 nc 

a 

Sektorgr,= 4 


4870 

ld 

C , * 31 

4010 


jr 

atdsel 



4880 

sub 

#30 

4020 

atdse 2 : 

cp 

»04 

Sektorgr.=4 (2048 


4890 

jr 

z,d 1 ran6 





Bytes)? 


4900 

ld 

c , #30 

4030 


j r 

nz . atdse3 

Sektorgr.=5 (4096 Bytes) 


4910 

ld 

b , a 

4040 


s 1 a 

a ; 

Ak ku^A k ku«2 (hier 


4920 

xor 

a 





Akku:= 8) 


4930 

diran9: add 

a . # 0 a 

4050 


jr 

atdsel 



4940 

djnz 

diran9 

4060 

atdse3: 

dec 

a ; 

Akku:— »04 


4950 

ld 

(sec ) , a 

4070 


s 1 a 

a ; 

A k ku:= *08 


4960 

d1ran6: 1d 

hl.#4906 

4060 


sl a 

a ; 

Akku’= * 10 


4970 

call 

locate 

4090 

atdse 1 : 

ld 

b. a ; 

B:= maximale Teil-Anzahl 


4980 

call 

wcha r 

4100 


ld 

a. (tei 1 ) ; 

aktueller Teil in Akku 


4990 

cp 

#7F 

4110 


cp 

b ; 

1 etzter Te' 1 schon 


5000 

JP 

z ,diranl 





erreicht ? 


5010 

CP 

c 

4120 


jr 

z,atdsc4 ; 

ja, dann Tei1=1 


5020 

Jr 

c,dir an 6 

4130 


i nc 

a ; 

Aktuellen Teil um 1 


5030 

sub 

#30 





erhoehen 


5040 

ld 

h 1 ,sec 

4140 


ld 

( te 1 1 ) ,a ; 

und speichern 


5050 

add 

a, (hl ) 

4150 


ld 

bc.*0100 






4160 


ld 

hl,(zbsb) ; 

Alten Pointer holen 


5060 

ld 

hl , seemax 

4170 


add 

hl,bc ; 

und erhoehen 


5070 

ld 

b. (hl ) 

4180 


jr 

atdseS 






4190 

atdse4: 

ld 

a , 1 ; 

von vorne (1. Teil) 


5080 

i nc 

b 

4200 


ld 

( tei1 ) ,a ; 

Te11 = 1 spei ehern 


5090 

cp 

b 

4210 

atdse5 : 

ld 

( zbsb),hl ; 

Pointer sichern 





4220 


call 

andms ; 

Spur/Sektor/Tei1 


5100 

Jr 

nc,dir an 6 





ausgeben 


5 1 10 

ld 

hl , sec 

4230 


jP 

prsec 



5120 

ld 

b, a 

4240 






5130 

sub 

(hi ) 

4250 

; Direktes anwaehlen eines Sektors 


5140 

add 

a , #30 

4260 

; 





5150 

cal 1 

print 

4270 

diranw : 

ld 

hl.bde ; 

Pointer auf Text: 


5160 

ld 

a . b 

4280 


ca 1 1 

prout ; 

Bitte Daten eingeben' 


5170 

ld 

(sec),a 

4290 


ld 

a. 1 



5180 

ld 

a , 1 

4300 


ca 1 1 

strsel ; 

Window 1 selektieren 


5190 

ld 

(tei1 ) ,a 

4310 

diran 1 : 

xor 

a ; 

Akku loeschen 


5200 

cal 1 

curoff 
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; Spurbuffer loeschen 


Cursor ein 

10er Ziffer der Spur 
eingeben 

> 4 ? 

Ja 

< 0 ? 

Ja 

Eingegebene Zahl 
prlnten 

CHR$-Wert abziehen 
wenn 0 

B ist 10er ZIffer- 
Zaeh 1 e r 
Akku:= 00 
jewei 1 s eine 
Zehnerziffer erhoehen 

und Wert speichern 
ler-Ziffer eingeben 
DEL ? 

Ja 

< 0 ? 

Ja 

> 9 ? 

Ja 

ler- Ziffer printen 
CMRJ-Wert abziehen 
Pointer setzen 

> 41 ? 

Ja (Wert ungueltig) 

Spur sichern 

** 10 usw.ermitteln *» 

Sektorbuffer loeschen 
maximale Sektorenanzah 1 
K1 einstmoeg1 . Einerwert 
Zweistel1ig ? 

Ja 

Cursor positionieren 

Zaehler + 1 

Einen Zehner abziehen 

< 0 ? : Ca r r y= 1 
Anzahl der Zehner in 
Akku 

CHR$-Wert dazuaddieren 
Zehnerwert nach B 
Zehnerziffer eingeben 
OEL ? 

Ja 

Zehnerwert mit Max.- 
we r t vergl , 

Wert zu hoch 

< 0 ? 

Ja 

Eingegeben Wert printen 
Kl einstmoegl . Einerwert 
CHRS-Wert abziehen 
0 ? : Ja 

B:= Zaehler 
Akku loeschen 
Akku um 10 erhoehen 
bis Zaehler:= 0 
Zehnerziffer sichen 

Cursor positionieren 
Einerziffer eingeben 
OEL ? 

Ja 

Einer-Wert ungueltig ? 
Ja 

CHRJ-Wert abziehen 
Pointer setzten 
Einer- u. Zehnerziffer 
add1eren 
Pointer setzen 
B mit max. Sektoranzahl 
1 aden 

und um 1 erhoehen 
Ist eing. Wert > max. 
vorhandener ? 

Ja (ungue1t1g) 

Pointer setzten 
Wert in B retten 
Zehnerziffer abziehen 
CHRJ-Wert dazuaddieren 
und printen 

Wert aus B zurueckholen 
und sichern 

Tel 1:= 01 
Cursor aus 
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Assembler | 


5210 

xor 

a 


5220 

cal 1 

strsel 

; Window 0 selektieren 

5230 

jP 

pr sec 


5240 ; 




5250 ; Hexadezimal 

/ASCII - Umschaltung 

5260 ; 




5270 hexasc: 

Id 

a.(haf1ag) 

; Momentane Stellung in 




den Akku 

5280 

cp 

*01 

; Hex ? 

5290 

jr 

z,hexasl 

; dann ASCII 

5300 

dec 

a 


5310 

3 r 

hexas 2 


5320 hexasl: 

i nc 

a 

; ASCII 

5330 hexas2 

ld 

(haf1ag ) ,a 


5340 

JP 

prpos 

; Position ausgeben 

5350 ; 




5360 ; Ermittlung 

der Sektor- 

10' s 

5370 ; 




5380 esm: 

call 

tdrive 

; Laufwerkstatus testen 

5390 

bl t 

5 , a 

; Ready ? 

5400 

Jr 

nz,esml 

; Ja 

5410 

ld 

hl,fmkdi1 

; Fehlermeldung: 




Keine Oisk 

5420 

cal 1 

prout 


5430 

ld 

hl,fmtd 


5440 

cal 1 

prout 


5450 

cal 1 

wchar 


5460 

ret 



5470 esml: 

cal 1 

edso 

j secmax + Sektorid's 




hol en 

5480 

ret 



5490 ; 




5500 ; Test 

Drive 



5510 ; 




5520 tdrive 

ld 

de,*0000 

; Laufwerk 0 / Spur 0 

5530 

rst 

*18 

; Seek track 

5540 

defw 

seek 


5550 

ld 

bc,#FB7E 

; Adresse des Haupt- 




Status-Registers 

5560 

ld 

e , *04 

; Befehl: Statusreg. 




3 lesen 

5570 

cal 1 

fdcout 

; an FDC uebergeben 

5580 

ld 

e , *00 

; Kopf 0 / Laufwerk A 

5590 

cal 1 

fdcout 

; an FOC uebergeben 

5600 st3aus 

1 n 

a, (c) 

; FOC Status ermitteln 

5610 

rl a 


; Bereit ? 

5620 

jr 

nc , st Saus 

; Nein 

5630 

1 nc 

c 

; BC:= #FB7F 




(OatenregiSter) 

5640 

1 n 

a , ( c ) 

; Laufwerkstatus holen 

5 6 50 

ret 


; Zurueck 

5660 ; 




5670 ; Ermittlung 

des Sektoroffsets 

5680 ; 




5690 edso: 

ld 

e , 0 

; Laufwerk A 

5700 

ld 

a , (spur) 


5710 

ld 

d , a 

; gewuenschte Spur 

5720 

rst 

*18 

; Seek track 

5730 

defw 

seek 


5740 

ld 

bc , * FB 7E 

; Hauptstatusregtster 

5750 

ld 

d , 64 

j 2*maximale Sektoranzah 

5760 

ld 

i y , stO 

; Ablageort 

5770 edso1: 

ld 

e,*4A 

; ID LESEN 

5780 

cal 1 

fdcout 


5790 

ld 

e, 0 

; Drive 0 

5800 

cal 1 

fdcout 


5810 

cal 1 

resau 2 


5820 

ld 

a , (i y-6) 

; Statusreg. 1 nach A 

5830 

and 

#01 

; Diskette formatiert ? 

5840 

Jr 

z , edso 2 

; ja, dann weiter 

5850 

ld 

hl ,fmdinf 


5860 

call 

prout 


5870 

ld 

hl ,fmtd 


5880 

cal 1 

prout 


5890 

cal 1 

wchar 


5900 

ret 



5910 




5920 edso2: 

dec 

d 

; Zaehler vermindern 

5930 

j r 

nz,edsol 

; naechster ID ermitteln 

5940 

ld 

1 y , st0+5 

j IY:= 1 . Sektor 

5950 

ld 

hl , st0+ 12 

; HL:= 2. Sektor 

5960 

ld 

ix , st0+12 

; IX:= 2. Sektor 

5970 

ld 

de, 7 

; Abstand der einzelnen 




10' s 

5980 

ld 

c, 1 

; Sektorzaehl er = l 

5990 edso3: 

push 

ly 

; IY retten 

6000 edso4. 

ld 

a,(iy+ 0 ) 

; Sektor holen 

6010 

cp 

(hl ) 

; mit fo1gendem 




ve rg1eichen 

6020 

j r 

z , edso5 


6030 

add 

hl.de 

; naechster Sektor 

6040 

add 

ix.de 


6050 

i nc 

c 

; Sektorzaeh1er erhoehen 

6060 

ld 

a , c 


6070 

cp 

32 

; schon maximal ? 

6080 

Jr 

nz , edso4 


6090 

ld 

(secmax) , a 

; dann maximale 


Sektoranzahl ablegen 
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6100 


jr 

edso8 ; 

Suche beenden 

6110 i 

Bdso5: 

ld 

a , c 


6120 


ld 

(secmax ) ,a ; 

Sektoranzahl ablegen 

6130 i 

edso6: 

add 

iy.de ; 

IY auf naecnsten Sektor 

6140 


add 

hl.de 


6150 


ld 

a,(iy+Ö) 


6160 


cp 

(hl ) 


6170 


jr 

nz,edso7 


6180 


jr 

edso8 


6190 

edso7: 

push 

ix 


6200 


pop 

hl ; 

HL auf vorherigen Sektor 

6210 


add 

hl.de ; 

um 7 erhoehen 

6220 


i nc 

c : 

Sektorzaehler erhoehen 

6230 


pop 

i y ; 

IY zurueck 

6240 


jr 

edso3 


6250 

edso8: 

pop 

iy ; 

Ende 

6260 


ld 

c.« FF ; 

max. Sektoradresse 

6270 


ld 

1y,stO+5 ; 

1. Sektor 

6280 


ld 

hl.stO+5 


6290 

edso9 : 

ld 

a.(iytO) 

Sektoradr. holen 

6300 


cp 

c ; 

mit max. vgl. 

6310 


Jr 

z , edsol 2 


6320 


jr 

c , edsol 1 


6330 

edso10: 

add 

iy.de ; 

naechster Sektor 

6340 


jr 

edso9 ; 

vergleichen 

6350 

edsol 1 : 

ld 

c. a ; 

max. Sektor nach C 

6360 


push 

iy 


6370 


pop 

hi : 

HL:= Adr. des max. 
Sektors 

6380 


jr 

edsolO 


6390 

edso!2: 

dec 

hl 


6400 


dec 

hl ; 

Zeiger auf zugehoerige 
Spur 

6410 


ld 

(adrksa),hl 


6420 

6430 


ret 



6440 

; spurnr/kopfad/secadr/secgr ablegen 

6450 

6460 

rwf 11 1 : 

ld 

hl , (adrksa) 


6470 


ld 

b, a ; 

Sekto rnumme r 

6480 


ld 

de , 7 ; 

Abstand der IO's 

6490 


or 

a 


6500 


sbc 

hl.de ; 

ein ID zurueck 

6510 

rwf 1 1 1 : 

add 

hl.de 


6520 


d jnz 

rwf11 1 ; 

richtigen ID suchen 

6530 


ld 

de.spurnr ; 

Beginn der Ablage 

6540 


ld 

bc, 4 ; 

4 Bytes 

6550 


1 d 1 r 

; 

verseht eben 

6560 

6570 


ret 



6580 

6590 

! Sekto 

r 1 es 

en 


6600 

1essec: 

cal 1 

esm ; 

Laufwerkstatus * 
Sektorid's ermitteln 

6610 

lessei: 

ld 

a,(sec) ; 

Sektor holen 

6620 


cal 1 

rwfi11 ; 

Bytes fuer Lesen/ 
Schreiben ablegen 

6630 


ld 

a. 1 ; 

Tel 1=1 

6640 


ld 

(tel1),a ; 

ablegen 

6650 


call 

andms ; 

Spur/Sektor/Tel 1 
ausgeben 

6660 


ld 

e, #46 ; 

DATEN LESEN 

6670 


xor 

a 


6680 


ld 

(amf1ag).a ; 

AORESS MARK Flag 
(l=geloescht) 

6690 


ld 

(1esanz),a ; 

Anzahl der Leseversuche 

6700 

1esse 2 : 

ld 

bc,#FB7E ; 

Hauptstatusregister 

6710 


ld 

hl,databl ; 

Buffer 

6720 


cal 1 

fdcout ; 

Befehl rausschicken 

6730 


cal 1 

fdclus ; 

FOC Lesen + Schreiben 

6740 


di 

: 

Interrupts sperren 

6750 

fdcnb2: 

1 n 

a, (c) ; 

FDC Status holen 

6760 


jP 

p.fdcnb2 ; 

nicht bereit 

6770 


and 

#20 ; 

Resultphase ? 

6780 


JP 

z.resau3 


6790 


i nc 

c i 

Datenregister 

6800 


i n 

a.(c) ; 

Byte holen 

6810 


dec 

c ; 

Hauptstatusreg. 

6820 


ld 

(hl),a ; 

ablegen 

6830 


i nc 

hl 


6840 

6850 


jr 

fdcnb 2 ; 

naechstes Byte 

6860 

; Abspeichern des Sektors 

6870 

6880 

abspds: 

ld 

hl.slabab 

Slcherhe'tsabfrage 
beim Speichern 

6890 


cal 1 

prout 

Text ausgeben 

6900 


cal 1 

wchar 

Ja/Nein Abfrage 

6910 


res 

5 , a 

Grossbuchstaben 

6920 


cp 

# 4 A 

Ja ? 

6930 


jP 

nz,prsec 

Zu rueck 

6940 


cal 1 

tdrive 

Laufwerk Testen 

6950 


bi t 

S.a 

Ready ? 

6960 


jr 

nz,abs 1 

Ja 

6970 


ld 

hl.fmkdi1 

Fehle rme1 düng: 

Keine Disk 

6980 


Jr 

abs 2 

Fehle r 

6990 

absl : 

bi t 

6, a 

Geschuetzt ? 
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[—Assembler 



\a 

hl,fmzis 

Z i e 1 d i s k ist 


7790 

ld 

e,»4C ; 

GELOESCHTE DATEN LESEN 




schreibgeschuetzt 


7800 

JP 

1esse2 







7810 resau4: 

ld 

h1,fmd f 

Fehlerme1 düng; 



prout 

Fehlermeldung ausgeben 





Daten feh 1e r 


ld 

hl,fmtd 

Taste oruecken 


7820 

cal 1 

prout ; 

ausgeben 


call 

prout 

Aufforderung printen 


7830 

ld 

hl,fmtd 



ca 1 1 

wchar 

Warten auf Tastendruck 


7840 


prout 




prsec 

Buffer printen, dann 


7850 

call 

wcha r 





Menue 


7860 

jP 

prsec 





Ermittlung der 


7870 resau2 

ld 

e.#07 ; 

Anzahl der Bytes 




SektorID's 


7880 resau1 

1 n 

a , ( c ) 

F0C Status ermitteln 


ld, a 

(sec) 

gewuenschter Sektor 


7890 

jp 

p,resaul 



ca 1 1 

rwfi11 

Bytes ablegen 


7900 

i nc 

c ; 



cal 1 

andms 

Sour/Sektor/Tei 1 





(Datenregister ) 




ausgeben 


7910 

1 n 

a , { c ) 


7110 

Id 

a,(amf1ag) 

, A0RESS MARK F 1 ag 


7920 

ld 

(ly).a ; 

Byte ablegen 

7120 

or 

a 

; geloescnte DAM 


7930 

i nc 

iy ; 

Zeiger erhoehen 


ld 

e , »49 

; GELOESCHTE DATEN 


7940 

dec 

c ; 

BC;= «FB7E 




SCHREIBEN 





(Haupt-Status-Register) 


Jr 

nz,abs4 

J ja 


7950 

dec 

e ; 

Zaehler um 1 vermindern 

7150 

ld 

e , »45 

; DATEN SCHREIBEN 


7960 

Jr 

nz,resau 1 ; 

noch nicht fertig 

7160 

abs4: ld 

bc , »F87E 

; Hauptstatusreg- 


7970 

ei 

; 

Interupts wieder 

7170 

ld 

hl , databl 

; Adresse des 





einscha1ten 




Sektorbuffers 


7980 

ret 


Zurueck 


cal 1 

fdcout 

an FDC uebergeben 


7990 ; 




7190 

cal 1 

fdclus 

FDC lesen und schreiben 


8000 ; Allgemeine 

Printroutine 





Interupts ausschalten 


8010 ; 





fdcnb3: ln 

a, (c) 

FDC Status «bfragen 


8020 prout; 

ld 

«.(hl) 

Akku: = zu printendes 



p, fdcnb3 

FDC nicht bereit 





Zeichen 

7230 

and 

»20 

Resultphase ? 


8030 

cp 

#80 i 

Endo ? 


jr 

z . resaus 

Ja 


8040 

ret 

z ; 

ja 


ld 

a,(hl) 

; 1 Byte aus Buffer holen 


8050 

call 

print ; 

Zeichen ausgeben 


tnc 


; BC : = * F B 7 F 


8060 

1 nc 

hl ; 

HL;= HL+1 




(DatenregiSter) 


8070 

jr 

prout ; 

naechstes Zeichen 



(c) ,a 

; Byte an FDC uebergeben 


8080 ; 




7280 

dec 

C 

; BC:= »FB7E 


8090 ; Printroutine zum printen des Sektor 1nha1tes 




(Haupt-Status-Register) 


8100 ; 




7290 

1 nc 

hl 

; Pointer um 1 Byte 


8110 prsec: 

call 

c 1 s ; 

Oberen Bildschirm 




e rhoehen 





1oeschen 


jr 


; naechstes Byte 


8120 

1 d 

hl,databl-#100 ; Adr. d. Datenbuf-ers 

7310 








- #0100 


: Routine die bei Lesen 

und schreiben benutzt wird 


8130 

ld 

de,#0100 ; 







8140 

ld 

a,(te’ l ) ; 

welcher Teil 

7340 

fde 1 us : 1 d 

e , 0 

; Kopf 0 / Laufwerk A 


8150 

ld 

b, a ; 

b:= Teil 


cal 1 

fdcout 

; an FDC uebergeben 


8160 prsecl 

add 

hl.de ; 

ML:= HL+#0100 

7360 

ld 

a , ( spu rn r ) 

; Spurnummer 


8170 

d jnz 

prsecl ; 

b=b-l. »1ederhole 




, in E-Register 





bis b= 0 

7380 

cal l 

fdcou t 



8180 

ld 

(z bsb ) ,h1 ; 

Zeiger bei Sektorbuffer 


ld 

a,(köpfad) 

; Kopfadresse 


8190 

ld 

b, # 10 





(aus ID-Fcld) 


8200 prsec2 

push 

bc ; 

bc retten 

7400 

ld 

e , a 



8210 

push 

hl 


7410 

call 

fdcout 



8220 

’d 

b, #10 





; Sektoradresse 


8230 prsec3 

ld 

a, (hl > ; 

1 Zeichen aus 









Sektorbuffer holen 


cal 1 

fdcout 



8240 

cal 1 

hexum 

in hexadezimal umwardeln 

7450 

ld 

a , (seeg r) 

l Sek.groesse 


8250 

ld 

a, #20 

Lehrzeichen 




(aus ID-Feld) 


8260 

cal 1 

print 

ausgeben 

7460 

ld 

e , a 



8270 

Inc 

hl 


7470 

cal 1 

fdcout 



8280 

dj nz 

p r sec 3 


7480 

ld 

a, (secad r) 

; letzter Sektor= 


8290 

ld 

b, 2 





1 .Sektor 


8300 prsec4 

cal 1 

print 

3 Lehrzeichen ausgeben 


ld 

e , a 



8310 

d j nz 

prsec4 


7500 

cal 1 

fdcout 



8320 

pop 

hl 

nl zurueckholen 

7510 

ld 

e . * 11 

; Luecke zwischen 


8330 

ld 

b. #10 





ID und Daten 


8340 prsecS 

ld 

a,(hl ) 

Zeichen aus Sektorbuffer 


call 

fdcout 






holen 


ld 

e , »FF 

; Sek.gr. wenn 


8350 

cp 

#20 

kleiner als 32 ? 




Sek.gr.=0 


8360 

jr 

nc,pr sec6 

nem 






8370 

ld 

a . #2E 

Punkt wegen 

7550 

fdcout: in 

a, (c> 

, FDC Status ermitteln 





Steuerzeichen 

7560 

rl a 


; bereit ? 


8380 prsecS 

call 

print 


7570 

jr 

nc,fdcout 

; Nein 


8390 

inc 

hl 



\ nc 

c 

; BC:= «FB7F 


6400 

d jnz 

prsec5 

16 Zeichen ausgegeben > 




(Haupt-Status-Register) 


8410 

ld 

a.*00 


7590 

out 

(c ) , 0 



8420 

cal 1 

pr 1 nt 

zurueck an Anfang der 

7600 

dec 

c 

; BC:= »FB7E 





Zeile 




(Daten reg 1ste r) 


8430 

ld 

a , »0A 



ret 


; Zurueck 


8440 

call 

print 

eine Zeile tiefer 

7620 





8450 

pop 

bc 

bc zurueckholen 

7630 

; Resultphase auslesen 



8460 

d j nz 

prsec2 

alle Zeichen ausgegeoen’ 






8470 

ld 

hl,#0101 


7650 

resaus: ld 

iy,*BE4C 

; Buffer fuer Resultphase 


8480 

ld 

(ypos),hl 

x-/y-Koordinaten auf 

7660 

call 

resau2 

; Resultphase auslesen 





1/1 setzen 

7670 

jp 

prsec 

; Zurueck 


8490 

cal 1 

1ocate 


7680 

resau3: ld 

iy,#BE4C 



8500 

1 d 

a , «33 


7690 

cal 

resau2 



8510 

ld 

(xxpos ) , a 

2. x-KOOrdinate 

7 700 

1 d 

a.(»BE4E) 

; St2 holen 





laseti) zur.setzten 


bi t 

6 , a 

; Control Mark Bit 


8520 

ld 

a , #01 





tes ten 


8530 

ld 

(haf1ag ) , a 

Cursor im Hex.-block 

7720 

jP 

z,prsec 



8540 

ret 


zu ruec k 


ld 

a,(1esanz ) 



8550 ; 




7 740 

or 

a 



8560 ; Hexumwand 1ungsrou11 ne 


7750 

jr 

nz , resau4 

; Oatenfehler 


8570 ; 




7760 

ld 

a , 1 



8580 hexum: 

push 

af 

AKKU retten 


ld 

(1esanz ) . a 

; bereits lmal gelesen 


8590 

rrca 

rotiere rechts durchs 

7780 

ld 

(amf1ag ) ,a 

; ADRESS MARK F1ag 





Carry arithmetisch 




( 1 = ge1oescht) 


8600 

rrca 
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60 PC 2'89 











Assembler 


8610 


r rca 


8620 


r rca 


8630 


and 

#OF ; obere 4 Bits ausblenden 

8640 


ca 1 1 

con v 

8650 


pop 

af ; AKKU zurueckholen 

8660 


and 

#OF ; obere 4 Bits ausb'enden 

86 70 


call 

con v 

8680 


ret 

; zurueck 

8690 

con v : 

cp 

»CA ; Zahl ? 

8700 


)r 

C,z ah 1 ; ja 

8710 


add 

a,#07 ; Buchstabe 

8720 

zahl : 

add 

a,»30 . CHR$:x)-*ert addie-en 

8730 


cal 1 

print 

8 740 


net 


8750 




8760 

1 Oater 

f e 1 d 


8 770 




8780 

sc reen 

defb 

#04,#02,#ID,#00,#00 , Mode2,BOrdO'0 

8790 


defb 

»IC,#00.«00,#00,#SC , Ink 0,0,0 

8800 


defb 

#01.#0D,#00.«OE,#00 , Ink 1,13,13 




.Paper o 

8810 


defb 

«OF,#01,#1F,#11,#01 ; Pen 1, Locate 

8820 


oefb 

«80 ; Ende 

8830 




8840 

sc r ee 1 

defb 

#1A,# 4 4,# 4 F, # 0 0,# 0 F,s18,# OC,# 0A.# 0 0 

8850 


defm 

" DMON VI.3" 

8860 


oefb 

# 0 A,#04,#OD 

88 70 


defb 

•20,#A4 

88BC 


defm 

" 1988 by " 

8890 


defb 

#0A,#0A.#00 

8900 


defm 

"Me reu rysoft " 

8910 


defb 

»DA.# 0 A,#0A,«00 

8920 


defm 

"Wr ttten Oy: " 

8930 


defb 

# 0 A, #0A , #00 

8940 


defm 

"AI exander," 

8950 


defb 

#0A,# 0 A.#00 

8960 


defm 

"Ulrich & 

8970 


defb 

#0A, # 0 A. #00 

8980 


defm 

"Chr i stOpil" 

8990 


defb 

«18,#80 


9000 ; 

9010 ; Unte 
9020 ; 

9030 menue: 
9040 


-es Textfenster (Menue) 

oefb *96,#9A,#9E.#9A,#9C,#1F,#1A,#01 

defb #96.#9A,#9E.#9A,#9C,slF,#3C,#01 

defb #94,#0A,#0D,#95,#F2,#95,«2B,*95 

defm •' EIN SEKTOR ZURUECK" 

defb *95,#3 7,*95,#2B , #95 

de fm " NAECHSTER TEIL OES SEKTORS' 

defb «1F , #3C,#02,#95 

defm " Momentane Stellung" 

defb *0A,#00.#97,#9A,#9D,#20,#95,#1F 

defb # 1A,#03,#9 7,#9A,#90,#20,#95,#0A 

defb #0D,#95,#F3,#97,#9A,*9D,*20,»9S 

defb *1F,#3C,#03,#95,BOA,#00,#95,#F3 

defb #95 , #53,#95 

defm '' EIN SEKTOR VOR ' 

defb #IF,#1A,#04,#95,#34,#9E,#53,#95 

defm " ABSPEICHERN DES SEKTORS" 

defb #1F.#3C,#04,#95 

defm " SPUR ='' 

defb BOA,#00,#9 7,#9A,#90,#48,#95,#1F 
defb #1A,#05,*97,#9A,#90,#48,#95,#1F 
defb #3C,#05,#95,#0A,*CD,#95,#F0,#95 
defb # 49,#95 
defm " EINE SPUR VOR" 

defb #1F,#1A,«06,B95,#31,#95,#49,*9S 
defm " SPUR UND SEKTOR EINGEBEN' 
defb #1F , #3C,#06.#95 
defm 1 SEKTOR =' 

defb #CA,#00,#97,#9A,#90 #46 , #95,#1F 
defb #1A,#07,#97,#9A,#9D,#46,#9S,«1F 
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9320 


defb 

# 3C,# 0 7,# 9 5,#0A,*00,#95,»Fl.«95 

9330 


defb 

#54 , «95 

9340 


defm 

" EINE SPUR ZURUECK" 

9350 


defb 

#95,#30,#95,#54,#95 

9360 


defm 

" HEXADEZIMAL - ASCII" 

9370 


defb 

#1F,# 3C,#08,#95 

9380 


defm 

" TEIL =" 

9390 


defb 

#OA,#Ö0,#93,*9A,»98,#9A,«99,#1F 

9400 


defb 

#1A,#09 1 #93,#9A,*9B,#9A,#99,»1F 

9410 


defb 

# 3C,#09,»91 

9420 


defb 

#80 ; Endzeichen 

9430 




9440 

; Text: 

Bitte Daten eingeben ... 

9450 




9460 

bde : 

defb 

#0C,*1F,#19,#09 

9470 


defm 

"Bitte geben Sie rechts unten die' 

9480 


defb 

# 1F,#1C,#OB 

9490 


defm 

"erforderlichen Oaten ein." 

9500 


defb 

#80 , Endzeichen 

9510 

; 



9520 

: 5icherheitsabfrage be-m Speichern eines Sektors 

9530 




9540 

siabab: 

defb 

#0C,#1F,#11,#08 

9550 


defm 

"Soll der Sektor wirklich abgespeiche 




rt werden ?" 

9560 


defb 

#1F.#26,#0A 

9570 


defm 

"(J/N)" 

9580 


defb 

#80 ; Endzeichen 

9590 




9600 




9610 

; Fehlermeldüngen 

9620 

; 



9630 

fmz i s: 

defb 

»OC,«1F,#18,#08 

9640 


defm 

"Zieldisk ist schreibgeschuetzt !' 

9650 


defb 

#80 ; Endzeichen 

9660 

fmkdi1: 

defb 

#0C,#1/ ,#15,#08 

9670 


defm 

"Achtung: Keine Diskette im 




Laufwerk 

9680 


defb 

*80 ; Endzeichen 

9690 

fmdin f; 

defb 

« OC,»1F,#1B,#08 

9700 


defm 

"Spur Ist nicht formatiert ! '" 

9710 


defb 

#80 ; Endzeichen 

9720 

fmdf : 

defb 

#0C,#1F,#22,#08 

9730 


defm 

" Oaten fehl er!" 

9740 


defb 

#80 ; Endzeichen 

9750 

fmtd : 

oefb 

#1F.#21,#0A 

9760 


defm 

"Taste druecken' 

9770 


defb 

#80 ; Endzeichen 

9780 




9790 

; Buffe 

r fuer Programmdaten 

9800 




9810 

ypos: 

defb 

1 

9820 

xpos : 

defb 

1 

9830 

x xpos: 

defb 

#33 

9840 

spu r : 

def s 

1 

9850 

sec : 

def s 

1 

9860 

seemax: 

def s 

1 

9870 

teil: 

defb 

1 

9880 

spu rn r: 

def s 

1 

9890 

köpfad: 

de f s 

1 

9900 

secadr: 

def s 

1 

9910 

seegr: 

def s 

1 

9920 

zhsb: 

def s 

2 

9930 

haf1ag: 

defb 

1 

9940 

am f1ag: 

def s 

1 

9950 

ad rksa: 

def s 

2 (Adresse der kleinsten 




Sektoradr. 

9960 

■' esanz : 

def s 

1 

9970 

tastab: 

defb 

#E2,#E3,#E4,#E5 , Tastaturbe1egung 

9980 

seek : 

def w 

#C 763 ; SEEK TRACK 

9990 


defb 

«07 

1000C stO: 

defs 448 

Listing DMON 




Schneider 

Euro PC mit Monitor MM 12 + MS-Wo'ks 
Euro PC mit Colormonitor CM 14 
20-MB-Festplatte extern tür Euro PC 
Target PC (Portable AT) 

Toner AT 220 mit Monitor MM12 
20-MB-Fitecard (Seagate 40 ms ZugriHne#. 
einhau- und anschlußlertig liir alle PC 1512 
und PC 1640) 

30-MS-Filecard (SeagDtu. 40 m») 

Amstrad 

PC 1640 mit 2 LW - Filocard 20 MB 
Monochrommonitor 2449,- 
Colormonitor 2769 - 

EGAMomtOr 3289 - 

PC 2086 SO 12 MD 2249 SD 14 CO 

SO 12 HRCD 3049 - SD 14 HRCO 
PC 2086 DD 12 MD 2699,- DO 14 CD 

DD 12 HRCD 3499 - DD 14 HRCD 
PC 2086 HD !2 MO 3299. - HD 14 CD 

HD 12 HRCD 4099,- HD 14 HRCD 
Portaöle Computer PPC 512 mit 2 Oiskouon- 
laulworken 35' 

Joyce PCVV 9512 mit Typon-arldrucker 

Superknulter: 

Epson Tmtenslrahldrucker IX 800 (249 ZlSei l 
S.emens BTX-Syslem T 331S - 15‘-Farbmoniloi 
Monitor 14 , fiatscreen(3ch»ar2na'6'Dernste.n) 
NEC EGA-Momror MuhiSynch II (dt Version) 


Epsondruckor (dt Version mit FTZ-Nummer) 

Anschiuaiertlg an AMIGA, Schneide-- PC Odor 
CPC. Atan ST oder IBM-Kompatih'-e 
LX 800 499.- 

FX8S0 1049.- 

LQ500 619.- 

LO2SS0 2999.- 

LO850 1369.- 

LQIOSO 1769,- 

SO 2500 2999. - 

Stardrucker (dl. Version mit FTZ) 

LC-iOmi! Commodoreod. Centron icsinl 599. - 

LC-10Color Farhdrucker mit mterlaoe 699. - 

LC-24-10 mit Centronlcsinterface 879 

NEC-Drucker (dt Version mil FTZ) 

NEC P 2200 899 - NECP7P!us 1899 - 

NEC Drucker Pä Plus 1449 - 

Aiari 

i040STFmil MonocfrommoriilorSM 124 '449- 

STF milFarOmonltor SC 1224 '799 - 

Mega 2 * SM 124 . Festplatte 20 M9 3499 - 

Mega 4 t SM 124 . Festplatte 20M8 4399. - 

NEU. Händlerproisliae 
Bitte anfordern mit Gernerbenachweis 
L^rsandKosrei'oauacr-.aie {Watenwen bis OM ’OOd -.idarut>er|- 
vo-ausxasse |OM B -na Nachnahme|OM 11 20-2320) Aus- 
ia-d ;DV ’8 -;30.-) L>eHr j"n "ur tieöenr.'Noder VOia-jsxawo 
Ausland nur Vorauskasse Preisliste (Compuwiyp angnoent ge 
oert Zusendung eines fre Umschlags 


MlllMÄHH 

Dnternehnensberatung & Handel 

=> JOYCE PCW 8256, 8512 & 9512 Neuheiten: <=• 

M * LocoFlle Datenbanksys+em f. LocoScrlpt 2 * 

§ * The Desktop Publtsher * TROJAN CADMASTER * 

kxj * PACK mit Llghtpen, anschlußfertig 199,— * 

$ * MaxaFIt Elnzelblatthalterung f. PCW 9512 * 

* Flipper * 150 vers. PCW-Progr. vorrätig. * 

* CPS 8256, FD-2, FD-4, VORTEX Syst. 2000, * 

& * 512 kB-R., 3" MAXELL, Mäuse, MM3, usw... * 
ro 

n - 

=> Gratis JOTCE PCW Infoliste anfordern I <- 


CSV Riegert 

Schloßhofstr. 5, 7324 Rechberghausen. Tel. (0 71 61) 5 28 89 


Korb InI anspIot z 2 
Fax: 089 - 965001 


D-C045 Ismaning bei 7*. 
Tel.: 089 - 965029 0 


2’89 PC 61 


AMSTRAD-Fachhändler 













I—Programm 



Schieb mal wieder 

Für Knobelfreunde - das Verschiebe-Fix 

Kennen Sie sie noch, diese kleinen Verschiebe-Fix-Spiele in allen Variatio¬ 
nen, die uns im Matheunterricht so herrlich vom Satz des Pythagoras und 
der Dreisatzrechnung ablenken konnten? Wie wär’s, haben Sie nicht mal 
wieder Interesse am Knobeln? Schiebe-Fix auf dem CPC heißt die Lösung. 


Schiebefix-Spiele aller Arten gab es 
schon immer auf dem Markt und zwar 
in allen möglichen Variationen. Unser 


für 464-664-6128 

i 


Verschiebe-Fix besteht wie die meisten 
Spiele dieser Art aus 4*4 Feldern, von 
denen eines frei ist. während alle ande¬ 


ren mit Steinen besetzt sind. Anstatt 
aber heimlich in der Schule oder im 
Büro spielen zu müssen, können Sie 
nun unheimlich lange abends an Ihrem 
CPC knobeln, probieren und gegen die 
Zeit spielen. 

Was lange schiebt... 

Die mit den Buchstaben A bis O be¬ 
schrifteten Steine sollen durch horizon¬ 
tales bzw. vertikales Verschieben in 
die richtige alphabetische Reihenfolge 
gebracht werden. Dabei ist es Ihnen 
möglich, zwischen Cursortasten und 
Joystick zu wählen. 

Beim Start des Programmes wird die 
ESC-Taste gesperrt, anschließend wer¬ 
den Windows und Grafik erstellt. Zu 
Beginn eines jeden Spiels werden nun 
wichtige Arrays und Variablen defi¬ 
niert. Als nächstes müssen Sie einge¬ 
ben, ob Sie mit Joystick oder Cursor¬ 
tasten spielen wollen, wie oft die Steine 
gemischt werden sollen, und in wel¬ 
chem Level Sie spielen wollen, das 
höchste Level hat allerdings die wenig¬ 
ste Zeit zur Verfügung. 

Mit den Cursortasten oder den Bewe¬ 
gungsrichtungen des Joysticks wird der 
jeweilige Stein verschoben, der durch 
einen Pfeil angezeigt wird. Durch 
SPACE. COPY oder FIRE am Joystick 
wird die Verschiebung ausgeführt. Die 
Zeit, die zur Verfügung steht, wird in 
einem Fenster angezeigt. 

Gewonnen hat man, wenn alle Steine in 
alphabetischer Ausführung hinterein¬ 
ander liegen. 

So. und nun viel Schiebevergnügen. 
Der CPC 464 benötigt den Emulator. 

(Alexander Kriegiseh/jb) 



130 OATA 147,149,150.151,153.154,155,156,1 [2415] 
57,158,159 

140 RESTORE 130:FOR i=0 TO 10:READ num:k$( [2515] 

1 )=CHR$(num): NE^T:k$=" 

150 g$(l)=k$(2)+k$(5)+k$(5)+k$(5)+k$(9)+k$ [5074] 

(5)+k$(5)+k$(5)+k$(9)+k$(5)+k$(5)+k$(5)+k$ 

(9)+k$(5)+k$(5)+k$(5)+k$(7) 

160 g$(2)=k$(l)+k$+k$(1) + k$ + k$(1)+k$+k$(1) [2289] 
+k$+k$(1) 

170 g$(3)=k$(3)+k$(5)+k$(5)+k$(5)+k$(10)+k [6413] 

$(5)+k$(5)+k$(5)+k$(10)+k$(5)+k$(5)+k$(5)+ 

k$(10)+k$(5)+k$(5)+k${5)+k$(8) 

180 g$(4)=k$(0)+k$(5)+k$(5)+k$(5)+k$(6)+k$ [4913] 

(5) 4k$(5) + k$(5)-tk$(6) + k$(5) + k$(5) + k$(5) + k$ 

(6) +k$(5)+k$(5)+k$(5)+k$(4) 

190 PRINT g$(l);g$(2);g$(2);g$(2);g$(3);g$ [6959] 

(2) ;g$(2);g$(2),g$(3),g$(2);g$(2);g$(2);g$ 

(3) ; g $(2 ) ; g $(2 ) ;g$(2) , g $(4 ) ; :LOCAT E 1.1 

200 PEN 0:PAPER 1:PEN #1,0:PAPER #1,1:PEN [13284] 

#2,1:PAPER #2,2:PEN #3,1:PAPER #3,0:PEN #4 
, 2:PAPER #4,1:PEN #7,0:PAPER #7,l:WINDOW # 

2,23,38,12,23:CLS #2:WINOOW #3,8,12,23,23: 

CLS # 3:WINDOW #4,23,38,2,8:CLS #4;WINDOW # 
7,1,40,1,25 

210 g$( 5 ) = k$( 2 ) + STRING$( 14 , 154') + k$( 7) : g$( 6 [ 3754 ] 

) = k $(1 ) + SPACES(14) + k$(l) :g$(7 ) = k$(0) + STRIN 
G$<14,154)+k$(4) 
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10 1 ************************************** 
************************************* 
20'»**** VERSCHI 

E B E - F I X ***** 

30 •»**** von Alexander Kriegisch 

(C> by GENIAL-So ft 8/88 ***** 

40 - ************************************** 
************************************* 

50 • 

60 • 

************************************* 

80 '*** nur beim Prorammbegin 

n: Bildschirmaufbau *** 

************************************* 

100 ■ 

110 ON BREAK CONT:KEY DEF 66,1,0 
120 INK 0,0:INK 1,0:INK 2,0:INK 3,0:PAPER 
0:BORDER 0:MODE 1:CLS:PEN 3:PAPER 2:WIND0W 
2,18,2,18:CLS 


Listing Verschiebe-Fix 
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Programm—i 


220 PRINT *4,g$(5);g$(6);g$(6);g$(6);g$(6) 

;g$(6);g$(7);:PRINT «2 . gS(5 ) ;g$(6) ;g$(6) jg 
$(6) ;g$(6);g${6);g$(6);g$(6);g$(6);g$(6);g 
$(6) ;g$(7); .WINDOW #2,24,37.13,22:PEN #2,3 
230 GRAPHICS PEN 1:GRAPHICS PAPER 0:TAG:MO 
VE 64,87:PRINT STRING$(11,I31);:MOVE 64,79 
:PRINT CHR$( 133) + SPACE$(9)+CHR$(138). :MOVE 
64,63:PRINT CHR$(133)+SPACE$(9 ) +CHR$(138) 

; :MOVE 6 4,47:PRI NT CHR$(133)+SPACE$(9)+CHR 
$( 138) ; 

240 MOVE 64,31:PRI NT CHR$(141)+ STRING$(9,1 
40)+CHR$(142); :MOV E 80.71.PRINT "Countdown 
" ; :GRAPHICS PEN 3:GRAPHICS PAPER 1:M0VE 39 
2,367:PRI NT "GENIAl-SOFT"; :MOVE 416,343:PR 
INT "presents";:TAGOFF:PEN #4,3:L0CATE #4, 

2,6:PRI NT #4 , "VERSCHIEBE — FIX" 

250 DATA 24,113,262,262,360,32,247,183,72, 
16,167,63,360,272,247,103 

260 GRAPHICS PEN 3:RESTORE 250:FOR q=l TO 
4:READ xp,yp,re,ob:FOR n=l TO 4:yp=yp-2:re 
=re+2:ob=ob+2:PLOT xp,yp:DRAWR r e,0:DRAWR 
0,ob:NEXT:NEXT:INK 0,12:INK 1,26:INK 2,18 
270 - 

280 ' ************************************* 

290 '*»* Variablen- und Arraydefini 

tion zu Beginn jedes Spiel3 *** 

300 

************1 

310 ' 

320 DEFINT f.1,n,O,r,u,x,y:w$="ABCDEFGHIJK 
LMNO ":w2$=w$;DIM 1 (4,4) , r(4,4) ,0(4,4) ,u(4 
,4) , n r(4,4),x p(4,4),yp(4,4): aus = 0 

330 DATA 1,5.9,13,2,6,10,14,3,7.11,15,4,8, [2144] 

12,16 

340 DATA 3,7,11,15 


[ 8025 ] 


[ 14235 ] 


[ 14921 ] 


[3271] 

[10118] 


[117] 
[2597 ] 


[4083] 
[ 2597 ] 


[117] 

[6793] 


[561 ] 
[314] 

[ 3094 ] 


350 DATA 5,9,13,17 

360 RESTORE 330:FOR i=l TO 4:FOR j=l TO 4: 

READ nr(1 ,j):NEXT j,i 

370 RESTORE 340:FOR i=l TO 4:READ n:FOR J= [8879] 
1 TO 4:1 (1 ,j )=n:xp(1 .j)=n + l:NEXT j,i RESTO 
RE 350:FOR i=l TO 4:READ n:FOR j=l TO 4:r( 
i .j)=n:NEXT j , 1 

380 RESTORE 340:FOR i=l TO 4:READ n:FOR j= [8078] 
1 TO 4:o(j , i )=n:NEXT j , i :RESTORE 350:FOR i 
= 1 TO 4:READ n:FOR j = l TO 4:u(j , i )=n:yp(j, 
i )=n:NEXT j,i :z = 0 

390 FOR j=l TO 4:FOR i=l TO 4;z = z +1:WINDOW [7431] 
1(i ,j),r(i ,j),o(i ,j),u{i ,j):CLS:IF MID$(w 
$,Z,1)=" " THEN PRINT STRING$(9,207); ELSE 
LOCATE 2,2:PRI NT MID$(w$,z,l) 

400 NEXT i,j:CLS #3:x1=4:y1=4:LOCATE 1,1 
410 ‘ 

420 


(2667] 

[117] 

[2597] 


Eingabe der S 
* * * 


Steue ru 
[2] Cur 


430 '*** 

pie 1 pa rame te r 
440 

c****»*****x***** 

450 ' 

460 CLS #2:PRINT #2,"Welche 
ng? [1] Joystick 

sor " 

470 a$ = INKEY$ : IF a$<"l" OR a$>''2" THEN GOT 
0 470 

480 steuer=VAL(a$) 

490 CLS # 2:INPUT #2,"Wie oft sollendie Ste 
ine zum'Mischen 1 ver-schoben werden( 25-250 
) ? ",misc h:IF misch<>I NT(misch) OR mis 

ch < 25 OR misch>250 THEN GOTO 490 
500 CLS # 2 : INPUT #2,"Welches Level (1-10) 

? ” , 1eve1 ! :IF 1eve1 !<>INT(1eve1 ! ) OR 

level:<1 OR level!>10 THEN GOTO 500 
510 mi =5 . 5-1 evel !/2 : IF mlOINT(mi) ThEN mi 
=INT(mi):se=30 ELSE se=0 

520 IF steuer=l THEN hh=80:1i=74:re=75:ob= 
72:un = 73:f1 = 77:f2=76 ELSE hh= 105 : 1 i =8 : re= 1 
: ob = 0:un = 2: f 1 = 47:f2 = 9 

530 IF se=0 THEN fo$="0#:0#" ELSE foS="0#: 

*#•' 

540 ' 


[3151] 
[259 7] 


[117] 

[ 7841 ] 


[1881 ] 

[1169 ] 

[ 11338 ) 


[ 6842 ] 

[3204] 
[4169 ] 

[2312] 

[117] 

[2597] 


560 '*** "Mischen" de [1662] 

r Spielstei ne *»» 

»*«**********»****x*******z*«*»**««** 

580 ' [117] 

590 PRINT «3.USING fo$;mi,se;:CLS #2:PRINT [5885] 
#2,"Es wird gemischt RANDOMIZ 

E TIME 

600 FOR 1=misch TO 0 STEP -1:LOCATE #2,1,5 [2979] 
:PRINT #2,USING "### 1 ;i 


Listing Verschiebe-Fix 


610 xp=l + INT(RND*4) : IF xp>xl+l OR xp<x!-l 
THEN GOTO 610 

620 yp=l+INT(RND#4):IF yp>yl+l OR yp<yl-l 
THEN GOTO 620 

630 IF (xp=x1 AND yp = y1 ) OR (xp=xx AND yp = 
yy) OR (xpOxl AND ypOyl ) THEN GOTO 610 
640 ta$=MID$(w$,nr(xp,yp),1) 

650 MID$(w$,nr(xp,yp) ,1 ) = ' ":MID$(w$,nr(x1 
,yl ), 1 )=ta$ :-xx = xl :yy = yl :xl=xp:yl=yp:NEXT:z 
= 0 

660 FOR j=l TO 4:FOR i=l TO 4:z=z+l ; wINDOW 
1(1,j),r(i,J),o(i,j),u(i,j):CLS:IF MID$(w 
$,Z-,1) = " " THEN PRINT ST RI NG$ ( 9,2 0 7 ) ; ELSE 
LOCATE 2,2:PRINT MID$(w$,z,l) 

670 NEXT 1,j:xp=xl:yp=y1:co$=CHR$(207) 

680 LOCATE #7,xp(xp,yp) ,yp( xp,yp) :co$ = COPY 
CHR$(#7):PRINT #7 , " A "; 

690 ' 

710 ■*** Hauptteil: Spielgesche 

hen / Tastaturabfragen **» 

720 '»*******************»******»«**«*».*» 

730 ' 

740 CLS #2:PRINT #2, Taste drueckenzum Sta 
rt! ” :CLEAR INPUT:CALL &B806:EVERY 50 GOSUB 
900 

750 IF INKEY(fl)=-l AND INKEY(f2)=-l THEN 
GOTO 800 

760 IF x p > x1 + 1 OR x p < x1 -1 OR yp>yl + l OR yp 
<y 1 - 1 OR ( xp= x 1 AND yp=yl ) OR (xpOxl AND 
yP < > y1 ) THEN GOTO 800 

770 ta$=MID$(w$,nr(xp,yp),1):MI0$(w$,nr(xp 
, yp),1) = " ":MID$(w$,nr(xl ,yl),1)=ta$ 

780 WINDOW 1(xl ,y1 ) , r(xl ,yl ),o(xl ,y1 ),u(xl 
,yl):CLS:LOCATE 2,2:PRINT ta$:WINDOW l(xp, 
yp),r(xp,yp),o(xp,yp),u(xp,yp):CLS:PRINT S 
TRINGS(9,207);:xl=xp:yl=yp:IF w$=w2$ THEN 
aus=REMAIN(0):aus=l:GOTO 1000 
790 co$ = CHR$(207 ):LOCATE #7.xp(xp,yp) ,yp ( x 
D,yp):PRINT #7, ;:FOR h=l TO hh:NEXT 
800 IF INKEY(li ) < > — 1 AND xp>l THEN LOCATE 
#7,xp(xp,yp),yp(xp,yp):PRINT #7 , co$:xp = xp- 
1:LOCATE #7,xp(xp,yp),yp<xp,yp):co$=COPYCH 

R$(# 7):PRI NT *7,-; :FOR h=l TO hh:N E X T 

810 IF INKEY(re)<>-1 AND xp<4 THEN LOCATE 
#7,xp(xp,yp),yp(xp,yp):PRINT «7,C0$:xp=xpt 
1:LOCATE #7,xp(xp,yp),yp(xp,yp):co$=COPYCH 
R$(#7):PRINT #7,-*"; FOR h=l TO hh:NEXT 
820 IF INKEY(ob) <>-l AND yp>l THEN LOCATE 
#7,xp(xp,yp),yp(xp,yp):PRINT #7,co$:yp=yp- 
1 : LOCATE #7,xp(xp,yp) ,yp(xp,yp) .cO$ = C0PYCH 
R$(#7) :PRINT #7, ; :FOR h=l TO hh:NEXT 

830 IF INKEY (un)O-l AND yp<4 THEN LOCATE 
#7,xp(xp,yp),yp(xp,yp):PRINT #7,co$:yp=ypt 
1 : LOCATE #7, xp(xp, yp) , y p( xp, yp ) : co$ = COPYC.H 
R$(#7):PRINT # 7, "*" ; ;FOR h=1 TO hh:NEXT 
840 GOTO 750 
850 ' 

860 ' »A***********»**.:»**»*«**,«**,***,*», 

870 **• Unterprogram 

m: Countdown *«* 

880 ' ***«*********«******x**************** 

890 ' 

900 se = se- 1 :IF se<0 THEN se = 59:mi-ml-1 
910 fo$="0#:##":IF se<10 THEN fo$="0#.0# 
920 PRINT # 3,USING fo$;mi,se; 

930 IF mi=0 AND se=0 THEN aus=REMAIN(0):au 
s = 2:GOTO 1000 
940 RETURN 
950 ' 

960 


■***»**»• 

Spielende: "neue 
* * * 
<*»**» 


970 '*** 

s Spiel (j/n) 

980 
***» 

990 ' 

1000 CLS # 2: IF aus = 2 THEN GOTO 1020 

1010 PRINT #2," SUPER !! - 

Sie haben das Spiel gewönne 

n";GOTO 1030 

1020 PRINT #2,"PECH GEHABT !:-- 

Sie haben das Spiel verlöre 
n" 

1030 LOCATE #2,1,8:PRINT #2,"Noch ein Spie 
l(j/n) ?- 

1040 a$=UPP£R$(INKEV$):IF a$<>"J" AND a$<> 
"N" THEN GOTO 1040 

1050 IF a$=" J •' THEN CLS «2:CLS #3:RUN 320 
ELSE CALL 0 


Listing Verschiebe-Fix 


[ 3047 ] 

[ 3286 ] 

[ 3642 ] 

[ 1233 ] 

[ 5938 ) 

[ 7431 ] 

[1462] 

[2993] 

[117] 

[2597] 

[2777] 

[2597] 

[117] 

[5988] 

[2442] 

[7826] 

[4016] 

[13033] 

[ 5881 ] 
[9731] 

[8754] 

[8996] 

[10480] 

[423] 

[117] 

[2597] 

[2677] 

[2597] 

[117] 

[ 1989 ] 

[2080] 
[1776] 
[2179] 

[ 555 ] 
[117] 

[ 259 7 ] 

[2850] 

[2597] 

[117] 

[ 1594 ] 
[5700] 

[5518 ] 

[3155] 

[ 2022 ] 
[2389 ] 
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r-JOYCE 


PIPELINE 

JOYCE-Drucker an Fremdgeräten 

Bedingt durch seine Konstruktion kann der Drucker des JOYCE nur am 
JOYCE selbst betrieben werden, andere Rechner können mit dem Drucker 
nichts anfangen. Wie man dennoch ’von außen’ an diesen recht leistungsfähi¬ 
gen Drucker herankommt, sei im folgenden beschrieben. 


Normalerweise sind Drucker mit einer 
gewissen 'Eigenintelligenz' ausgestat¬ 
tet, nicht so der JOYCE-Drucker. Ob¬ 
wohl es oberflächlich so aussieht, als 
ob der Drucker ohne Probleme an 
fremde Rechner angeschlossen werden 
kann, ist dem nicht so - ebensowenig 
kann ein Fremddrucker an die interne 
Buchse des JOYCE angeschlossen 
werden. Der Grund dafür ist, daß beim 
JOYCE die Druckerintelligenz im 
Rechnergehäuse zu finden ist, der 
Drucker selbst empfängt statt ASCII- 
Zcichen die direkten Daten zur Ansteu¬ 
erung der Nadeln und Motoren. Durch 
einfaches Umstecken ist also nichts zu 


machen, außer dem JOYCE kann kein 
Rechner mit dem JOYCE-Drucker et¬ 
was anfangen .Mit einem kleinen T rick 
ist es dennoch möglich, mit gewissen 
Einschränkungen Texte von anderen 
Rechnern auf dem JOYCE-Drucker 
auszugeben. 

Umleitung... 

Man könnte nun an das Ressort 'Hard¬ 
ware' den Auftrag erteilen, ein Interfa¬ 
ce zu konstruieren, aber es geht noch 
einfacher, hat man doch in Form des 
JOYCE schon ein sehr großes Interfa¬ 
ce. Mit dem externen Schnittstellenmo¬ 


dul, einem Kabel und etwas Software 
für den JOYCE geht's nämlich auch... 

Das Stichwort heißt Datenumleitung. 
Der JOYCE gibt das, was er über die 
serielle Schnittstelle empfängt, ganz 
einfach an den internen Drucker wei¬ 
ter, bei der Gegenseite wird die 
Druckerausgabe über entsprechende 
Befehle einfach auf die serielle Schnitt¬ 
stelle umgeleitet. Voraussetzung ist 
also auf beiden Seiten eine serielle 
Schnittstelle, der Sender sollte seine 
Druckerausgabe entweder standardmä¬ 
ßig oder optional (z.B. über den 
MODE-Befehl bei PCs) über dieselbe 
tätigen. Auf dem JOYCE ist noch das 
Programm PIPELINE nötig, es liest 
Daten von der SIO und gibt sie an den 
Drucker weiter. Listing 1 zeigt den 
Quelltext des Maschinenprogramms, 
Listing 2 den BASIC-Lader für Mal- 
lard BASIC. Dabei ist zu beachten, daß 
cs sich bei PIPELINE nur um ein sehr 
einfaches Grundgerüst handelt. Es ver¬ 
fügt über keinerlei Puffer- oder Proto¬ 
kollmöglichkeit, ist also noch nicht 
sehr fehlertolerant, auch fehlt eine in 
manchen Fällen wünschenswerte Op- 



* PIPELINE.MAC v. 1.1 12.2.1988 * 

* Datsnumltftung AUXIN: -> LST: * 


* JOYCE / CP/M 3.0 / Microsoft M 80 * 


LD C,RESET 
CALL BOOS 


; Meldungen 


. Z 80 
ASEG 

; BOOS-Aufrufe: 


Msg_l: 

DB PIPELINE aktiv, Ende mit Taste -’.CR.LF, $' 
Msg_2: 

DB - PIPELINE beendet - - - -',CR,LF,'$' 


BOOS EQU 0005h 
AUXSTAT EQU 07h 
GETAUX EQU 03h 
PUTLST EQU 05h 
GETKEY EQU 06h 
PRTSCR EQU 09h 
RESET EQU 00h 

CR EQU 00h 

LF EQU OAh 


ORG 100h 

; Intro: 

LD C,PRTSCR 
LD DE,Msg_l 
CALL BOOS 


; Hauptschi elfe: 
Loop: 

LD C.AUXSTAT 
CALL BDOS 
JR Z,None 
LD C.GETAUX 
CALL BOOS 
LD E.A 
LD C,PUTLST 
CALL BDOS 
None: 

LD E.OFFh 
LD C,GETKEY 
CALL BDOS 
JR Z,Loop 

; Beenden 

LD C.PRTSCR 
LD DE,Msg_2 
CALL BDOS 


ENO 

Listing I: Der Quell text zu PIPELINE für Jen M 80-Assembler 


LISTING >PIPELINE<, REMARK = >'<- 


Baslc-Lader f}r PIPELINE 
erzeugt PIPELINE.COM auf Diskette 


Daten f)r MCode 


<18 > 100 
< 20 > 110 
<22 > 120 

< 24 > 130 

< 2 6 > 140 

< 28 > 150 

<90> 160 OATA OE,09,11,30,01,CD,05,00,OE,07,CD,05,00,28 
,08,OE 

< 6 7 > 170 OATA 03,CD,05,00.5F,OE,05,CD,05.00,1E,FF,OE,06 

,CD,OS 

< 5 7 > 180 DATA 00,28,E5,OE.09,11,55,01,CD,05.00.OE,00,CD 

.05,00 

< 38 > 190 DATA 20,20,50,49,50,45,40,49,46,45,20.61,68,74 

,69,76 

< 54 > 200 DATA 2C.20,45,6E,64.65.20,60,69.74,20.54,61,73 

,74,65 

< 20> 210 DATA 20.20,00,0A,24.2D,20,2D.20,20,20,20,20,20 

,50,49 

< 4 5 > 220 OATA 50,45,4C,49,4E,45,20,62,65,65,6E,64,65.74 

,20,20 

< 9 > 230 DATA 2D,20,2D,20,2D,20.20,OD,0A.24 

< 2 7 > 240 ’ 

<-29 > 250 ‘ 

< 31> 260 ' Lader 
<33> 270 ' 

<18 > 280 PRINT : PRINT "Erzeuge PIPELINE.COM..." : PRIN 
T 

< 33 > 290 RESTORE : OPEN "0",1,"PIPELINE.COM" : s = 0 

< 14 > 300 FOR 1 = 1 TO 122 : READ x$ : x = VAL("AH" + x$) 

< 8 7 > 310 s = s + x : PRINT #l,CHR$(x); : NEXT 1 : CLOSE 1 

< 4 6 > 320 IF 307321 THEN PRINT " ! ! ! Fehler in DATA-Zeil 

en ! I 1 " 

< 31> 330 END 

Listing 2: Ein Assembler ist dank BASIC-Iuider überflüssig 
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mm OFFBRs! 

für CPC 464-664-6128, nur auf 3“- Disketten 

Original CPC-Software im Paket 
zu stark herabgesetzten Preisen 

COMPOSER-STAR (664/6128) 

Ein Musikprogramm für alle Musikfans 

Mit COMPOSER-STAR können Sie komplette Musikstücke oder nur 
ein paar Taktfolgen auf einfachste Weise erstellen! Natürlich stehen 
Ihnen auch eine Menge Korrekturhilfen zur Verfügung, um Ihrem 
Stück den letzten Schliff zu geben. Sie können auch mehrere Stücke 
verbinden, transponieren, die Tonhüllkurven und die Lautstärke ver¬ 
ändern. den Rauschgenerator benutzen, Notenblätter drucken ... 
Das Programm ist sehr einfach zu bedienen; das beiliegende Hand¬ 
buch gibt auch dem Anfänger einen Einblick in die bislang Iremde 
Welt der Musik. Das wichtigste jedoch ist, daß Sie Ihre Werke in ein 
Basicprogramm umwandeln können, um es in eigenen Programmen 
zu verwenden. 


Eine Grafik sagt mehr als 1000 Zahlen 

Ein professionelles Grafik- und Statistik¬ 
programm zum Auswerten von Daten aller Art 
(Schule, Studium, Beruf, Hobby, Haushalt...). 

• Linien-, Balken- und Tortengrafik 

• Betiteln von Grafiken 

• 400 Daten direkt im Speicher 

• Umfangreiche Editierfunktionen 

• Umfangreiche statistische Berechnungen 

• Hardcopyfunktion u.v.m. 


Beimptelgrafik STATISTIC-STAR 

MATHE-STAR 

Vom Lehrer für Schüler 

• lin Gleichungssysteme 

• Gleichungen 4. Grades 

• Bruchrechnen 

• Primfaktorenzerlegung 

• Polynome 

• Kurvendiskussion 

• Integralrechnung 

• Vektorrechnung 

• Matrixrechnung 
etc. 



COPY-STAR II 

ist die ideale Befehlser¬ 
weiterung für Drucker¬ 
besitzer, denn es stellt 
für alle gängigen 
Drucker Hardcopyfunk¬ 
tionen in verschiedenen 
Größen zur Verfügung 
Sogar Farbbilder lassen 
sich schattiert ausge¬ 
ben. COPY-STAR II kön¬ 
nen Sie leicht in eigene 
Programme einbinden. 




STATISTIC-STAR 



DESIGNER-STAR 



Grafikprogramm, mit dem 
man Bildschirmgrafiken kom¬ 
fortabel erstellen kann. Hiils- 
menü auf Tastendruck - kein 
Joystick oder Maus not¬ 
wendig. 




DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung, die keinem CPC-Benutzer 
fehlen sollte. DISKSORT-STAR verwaltet, archiviert, katalogisiert, 
druckt.... Ihre Diskettensammlung auf einfachste Weise. Neben 
der reinen Diskettenverwallung ist unter anderem noch ein kom¬ 
pletter Diskettenmanager enthalten. Auch ln punkto Bedienungs¬ 
komfort ist DISKSORT-STAR kaum zu schlagen. 


CREATOR-STAR STAR-MON 


Ein Trickfilmdesigner für 
alle Hobbyregisseure auf 
dem CPCI 

• Sprite-Designer 

• Laufschrift 

• Utilities 

• Kulissendesignor 

• Sprites mit 4 Unter¬ 
positionen 

• Verbinden von Sprites 

• Kulissen auch überein- 
andergelegt 

• Eigene Programmierspra¬ 
che mit Editor und Compiler 


Das Entwicklungssystem 
für Profis 

• Assembler 

• Editor 

• Disassembler 

• Monitor 

• vier Breakpoints 

• Trace-Funktion 

• Bankswitch 

• Memory Dump 

• Diskettenmonitor 

• u.v.m 


9 Spiele für Ihren CPC auf 3“ Disketten 

1) Stan und der Zauberstab - Ein deutsches 

Grafikadventure besonderer Art 

2) Mr. PAC - Version des beliebten PACMAN- 
Spieles. 

3) Puzzle - Bringen Sie ein durcheinandergefal¬ 
lenes Bild wieder in Ordnung 

4) Black Jack 5) Orion 6) Labyrinth 
7) Memory 8) Zick-Zack 9)Sialom 


’ Unabhängig von der Anzahl der bestellten Programme berechnen wir für das 
Inland 3,- DM bzw. für das Ausland 5,-- DM Porto und Verpackung. Bitte be¬ 
nutzen Sie die Bestellkarte. 


SPECIAL OFFERS sind nur erhältlich bei: 


DMV- Verlag ■ Postfach 250 ■ 3440 Eschwege 


ConText Pc 


Autor; Matthias Uphoff 



So logisch und einfach kann Textverarbeitung sein! 


Was Context PC nicht kann: 

- Dokumente mit 4000 Seiten verwalten 

- 3-fach geschachtelte Fußnoten 

- Grafik aus Fremdprogrammen einbinden. 

Wenn Sie diese Features unbedingt benötigen, empfehlen wir Ih¬ 
nen die Textverarbeitung der Firma XXX! 

Was CONTEXT PC dafür jedoch ausgezeichnet beherrscht: 

- exakte Wiedergabe des Druckbildes auf dem Bildschirm 

- automatische Worttrennung durch Trennhilfe mit 99% Treffer- 
Wahrscheinlichkeit. 

- einfachste Bedienerlogik, Hilfsmenues für jede denkbare Situa¬ 
tion 

- integrierter Dateimanager 

- Wordstar-Kompatibilität, über Tastaturmakros auch selbst konfi¬ 
gurierbar. 

- Rechnen im Text, automatische Datum- und Zeiteinfügung, 
Kalender 

- Grafik-Zeichen direkt aus Tabelle in Text einsetzen 

- 5 parallel bearbeitbare Textpuffer, Textlänge nur durch eigene 
Hardware-Konfiguration begrenzt 

- zweispaltiges Layout möglich. 

- automatische BackUp-Funktion 

- DOS-Aufrufe (auch andere Programme) aus Context heraus 

- kontrollierbar über Kommandozeilen-Argumente 

- hervorragend als Programm-Editor 

- an jedem handelsüblichen Drucker einsetzbar 


Der Dateimanager des 
Context PC macht 
DOS-Benutzerober- 
flächen überflüssig. 



»WYSIWYG«in Rein¬ 
form: Alle Schriftattri¬ 
bute werden am Bild¬ 
schirm dargestellt. 


i» 

H i er sehen S i e 
uas S i e kr i egen 

06 fett, mterrifirte« . doppe 11 bre i t 
Mer lert «it tri iMini, Context K 

ptellt eilet M der, eie Sie n <if den tridter 
Ptelter (mXi iM&iiiipii ItttM'iMi s ind 
I®« 1 “' problemlos' 

Eiafadt Mit tim SctreitiMsrfiinc. 

UM»für alle fclmr dr Mnkä» 



Notwendige Konfiguration: 

PC XT/AT mit 256 kByte oder mehr, 1 Diskettenlaufwerk bzw. Festplatte, MS- 
DOS ab Version 2.0. CGA-, Hercules- und EGA-Grafikkarten werden unter¬ 
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I JOYCE 


tion zur Codeumwandlung. (Zur Anre¬ 
gung: Denkbar wäre beispielsweise ein 
intelligenter Druckerpuffer mit Elimi¬ 
nierung unzulässiger Steuercodes und 
einer Umwandlung von Sonderzei¬ 
chen, z.B. IBM-Codes.) 

Betriebspraxis 

Die seriellen Schnittstellen der beiden 
Rechner werden über ein Null-Mo- 
dem-Kabel (gekreuzte Daten- und 
Handshakeleitungen!) verbunden. 
Nach dem Laden des Betriebssystems 
muß die Baudrate der Schnittstellen mit 
MODE und SETSIO auf einen Wert 
von 4800 Baud (oder kleiner, je nach 
Qualität der Leitung - die optimale 
Rate sollte experimentell ermittelt wer¬ 
den.) Auf der Gegenseite wird jetzt 
beispielsweise mit 

MODE LPT1:=C0M1: 

die Druckerausgabe auf den seriellen 
Port gelegt, auf dem JOYCE wird der 
Drucker bereitgemacht und PIPELINE 
gestartet. Zum ersten Test wird das 
Druckerprotokoll mit CTRL+P akti¬ 
viert und das Directory des Senderech¬ 
ners ausgedruckt. Wenn keine oder nur 
verstümmelte Zeichen gedruckt werden, 


ist entweder das Kabel defekt, oder die 
Parameter wurden nicht richtig einge¬ 
stellt. Fehlt hier und da ein Zeichen, 
sollte mit einer anderen Baudrate expe¬ 
rimentiert werden. Probleme gibt es 
auch noch mit Sonderzeichen und Um¬ 
lauten, deren Codes auf verschiedenen 
Rechnern unterschiedlich sein können. 
Hier könnte eine Umwandlungsroutine 
in PIPELINE installiert werden, die 
die nötigen Anpassungen vornimmt, in 
der vorliegenden Version ist sie jedoch 
noch nicht implementiert. Weniger 
problematisch ist dies, wenn auf dem 
PC ein Programm verwendet wird, 
welches für einen Epson-FX-Drucker 
installiert werden kann, da der JOYCE- 
Drucker zu 95 % Epson-kompatibel 
ist, hier werden die Umlaute auf alle 
Fälle und die Sonderzeichen meistens 
korrekt ausgedruckt. Im Prinzip kön¬ 
nen auch Grafiken ausgedruckt wer¬ 
den, allerdings unterstützt der JOYCE 
nicht immer alle Grafikmodi der ande¬ 
ren Drucker. Nach Arbeitsende kann 
auf dem Sender die übliche Konfigura¬ 
tion wieder eingestellt werden, auf dem 
JOYCE wird PIPELINE durch einen 
beliebigen Tastendruck beendet, dies 
sollte allerdings erst dann geschehen. 


wenn die Übertragung komplett ist, da 
sonst der Sender blockiert würde. Die 
vorliegende Lösung ist wohl noch nicht 
der Weisheit letzter Schluß, aber viel¬ 
leicht kommt ja von anderer Seite noch 
eine bessere Lösung. Aufsteiger kön¬ 
nen sich auf diese Weise zumindest für 
den Anfang die Anschaffung eines wei¬ 
teren Druckers ersparen, bis sich der 
Geldbeutel erholt hat. (Diese Lösung 
hat recht gute Chancen, bei der Prä¬ 
mierung des verschwenderischsten In¬ 
terface einen der oberen Plätze zu bele¬ 
gen, bleiben doch 99% der JOYCE- 
Kapazität ungenutzt...) 

(Michael Anton/rs/me) 


Hinweis: 

Dieses Programm arbeitet unter Mallard-BASIC. Die 
links neben den Zeilennummern in spitzen Klammem 
befindlichen Zahlen sind Prüfsummen Jur das Prüfsum¬ 
menprogramm 'CHECK' aus JOYCE Sonderheft I und 
dürfen nicht mit abgetippt werden. Die Punkte, die 
nicht in Anführungszeichen ("") stehen und nicht als 
Dezimalpunkt verwendet werden (27.45). dürfen eben¬ 
so nicht mit abgetippt werden: sie werden vom Prüf¬ 
summenprogramm als sichtbare Platzhalter fiir Leer¬ 
zeichen erzeugt. 

Nach dem Abtippen <vor dem ersten Start) unbedingt mit 

SAVE "PIPELINE (RETURN) 

abspeichern I 

Start des Programms: 

Unter CP/M: A > BASIC PIPELINE 

Unter BASIC: RUN "PIPELINE 

Nach dem Starten von PIPELINE wird automatisch ein 

COM-File erzeugt, welches dann immer unter CP/M mit 

A > PIPELINE gestartet werden kann. 


Bitte ausschneiden und versenden... 


JA, ich interessiere mich ganz unverbindlich für: 
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□ 
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neue JOYCE Programme 

JOYCE-Umtauschaktion 

Wochenend-T elefonservice 

neue Software für alle Gewerbetreibende 

kostenloser Software-Test 

Individualsoftware 

neues LocoScript mit Erweiterungen 
Public-Domain Fakturierung 
PCW / JOYCE Spezial 
(neue Anwenderzeitschrift) 


B üro für Software-Entwicklung 


Othestr. 1 • 5275 Bergneustadt 
Telefon 02261/40054 • Fax 02261/49623 


Ist Ihr Programm der HIT? 

Der DMV-Verlag sucht ständig 
nach neuer, interessanter 
Software zur Aufnahme in 
unser Softwaresortiment. 

Dabei ist es einerlei, ob Sie nun ein 
Anwendungs- oder ein 
Spielprogramm geschrieben haben. 

Der DMV-Verlag bietet Ihnen sein 
Software-Know How an! 


In 3 Sek. van LmzoScript zu CP/M 


FLIPPEB 


nit den Superpragrann _ 

Dieses neue Programm ermöglicht 
Umschatten zwischen Lo coScript 

[TjCjr^den Computer neu zu starten!!! u ~^]7] 
OH 1ZB,- nit dt. Hdh. 


aus GB! 
schnellstes 
und CP/M 


Näheres dazu (und viele weitere Tips) in; 


PCU/J0¥CE Spezial 1/89 (DH 5,-) 


der neuen Zeitschrift aus dem CHZ-Verlag. 


Kostenlose Sonderprospekte anfordern bei: 
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ALT-F3 für DIR AFULL 

Gezieltes Belegen von Tasten 

Die Erweiterungszeichen #80 bis #9E sind bekanntlich eine sehr bequeme 
Möglichkeit, mit einem Tastendruck einen ganzen CP/M- oder auch Basic- 
Befehl einzugeben. Statt mühsam >DIR [FL'< oder gar >DIR [FULL]< 
einzutippen, um sich das Inhaltsverzeichnis einer Diskette und die belegten 
Kilobytes oder sonstige Datei-Attribute anzeigen zu lassen, genügt dann 
eben zum Beispiel der Druck auf die ALT-Ebene der ’f3’-Taste. Bei kom¬ 
plexen BASIC-Befehlen wie > PRINT FNat$(< braucht man dann nur 
noch eine Taste zu betätigen und die Koordinaten der vorgesehenen Cursor¬ 
position einzugeben. 


Ist bei Ihnen auch schon einmal folgen¬ 
des Problem aufgetreten? Mit einer 
Datei für die Tastendefinition haben 
Sie mehrere Erweiterungszeichen vor¬ 
gegeben und diese Datei mit SET- 
kEYS.COM eingespielt. Einige Ihrer 
neuen Schlüssel funktionierten zuver¬ 
lässig, andere nicht. Oft waren das die 
mit den höheren Schlüsselnummern. 
Sie haben verwirrt Ihre Datei geprüft: 
Scheinbar war doch alles in Ordnung? 
Warum es dennoch nicht funktionieren 
kann, wissen Sie am Ende dieses Arti¬ 
kels. Eines vorweg: Nicht Sie sind 
Schuld, sondern der Geiz der 
CP/M-Programmierer - der Geiz mit 
den Bytes, von denen CP/M doch im¬ 
merhin über 41.000 hat! 

Was ist schon vorgegeben? 

Die meisten Erweiterungszeichen sind 
im CP/M schon installiert (Handbuch. 
Band 1. Anhang 1. Seite 11). Die Zei¬ 
chen #9B bis #9E - also nur vier? - 
hat man Ihnen zur freien Verfügung 
überlassen. Lassen Sie sich nicht ver¬ 
blüffen: Ihnen stehen mehr als diese 
vier Möglichkeiten zur Verfügung. 

Das Zeichen #9F übrigens, das die 
Reihe von 32 Zeichen von #80 bis 
#9F vervollständigen würde, tut et¬ 
was ganz Besonderes: nichts! Es dient 
lediglich dazu, im CP/M-File unbe¬ 
setzte Tastaturebenen zu markieren. 

Im Handbuch Band 1. Anhang 1 ab Sei¬ 
te 6 sind das Arbeiten mit SETKEYS 
und Tastaturdefinitionsdateien recht 
ausführlich und genau beschrieben. 

Mir erschien es nie sinnvoll, für das 
Zeichen Control-C, das von der Taste 
'STOP' ausgelöst wird, das Erweite¬ 
rungszeichen # 80 zu mißbrauchen. Es 
passiert nämlich nur folgendes: die Ta¬ 
ste 'STOP' ruft das Erweiterungszei¬ 
chen #80 auf. den dazugehörenden 
String, und der lautet kurz und bündig: 
#03. Also auch nur ein Zeichen, ein 


Hex-Byte, das Steuerzeichen ETX = 
Control-C. 

So ist es übrigens mit allen vordefinier¬ 
ten Erweiterungszeichen #81 bis 
#8F. und #91 bis #9A - sic bestehen 
jeweils nur aus einem Byte. Nur #8F 
sind drei Zeichen und #90 sind zwei 
Zeichen. 

Blick in das CP/M-File 

Im CP/M-File J14gcpm3.ems begin¬ 
nen ab Byte # 1347 die vorgespeicher¬ 
ten Erweiterungszeichen. Die Anord¬ 
nung der Bytes folgt einem bestimmten 
Schema: 1. Byte = Länge und folgen¬ 
des Byte oder folgende Bytes = das Er¬ 
weiterungszeichen selbst, meist ein 
Steuerzeichen von #00 bis #1F. 
Möglich wäre natürlich auch der hexa¬ 
dezimale ASCIl-Wert von druckbaren 
Zeichen. Die ganze Sache endet mit 
vier Bytes #00bei # 1383. Diese letz¬ 
ten vier Null-Bytes sind nicht unwich¬ 
tig. Sie repräsentieren die nicht vorde¬ 
finierten Erweiterungszeichen #9B, 
#9C, #9D und #9E und teilen 
CP/M mit: vordefinierte Länge sleich 
Null! 

Wenn Sic die Bytes zählen, die jeweils 
die Länge des Erweiterungszeichens 
bestimmen, kommen Sie auf 31. näm¬ 
lich von #80 bis #9E. Nur wenige 
Bytes bleiben also über für die eigentli¬ 
che Definition - magere 30. Insgesamt 
ist dieser Bereich ja nur 61 Bytes lang. 
Erweiterungszeichen wie #80 = #03 
(Control-C) oder #81 = #1A (Con¬ 
trol-Z auf der fl-Taste) dienen also 
hauptsächlich als Platzhalter. 

Änderun gen der Zeichen #81 
bis #88 - Funktionstasten 

Ändert man aber jetzt hoffnungsvoll 
die nur ein Zeichen kurzen Erweite- 
rungszeichen entweder durch eine 
SET KEYS-DATEI oder direkt im 


CP/M-File. so muß man meist außer¬ 
dem noch die Tastaturbelegung zusätz¬ 
lich ändern. Sie ist ja für die Erweite¬ 
rungszeichen #81 bis #88 an die 
Funktionstasten fl bis f8 gekoppelt, 
und Programme wie RPED.BAS oder 
DISCKIT.COM erwarten eben das 
Control-Z auf der Taste fl oder Con¬ 
trol-Q auf Taste f3. Man kann also 
nicht einfach Erweiterungszeichen 
#81 irgendwie umdefinieren, ohne es 
auf eine andere Taste zu legen und der 
'fl’-Tastc das unmittelbare Control-Z 
(Byte # 1A) direkt zuzuordnen. 

Keine Sorge - andere Programme ak¬ 
zeptieren auch die Steuerzeichen di¬ 
rekt. sie brauchen nicht wie Zucker- 
watte in Erweiterungszeichen einge¬ 
packt zu sein. RPED oder DISCKIT 
z.B. ist es wirklich egal, ob es auf der 
'fl'-Tasie Erweiterungszeichen #81 
findet, das Control-Z bedeutet, oder ob 
diese Taste direkt mit Control-Z belegt 
ist. Fatal wird es nur bei diesen Pro¬ 
grammen. wenn TL immer noch den 
Erweiterungsstring #81 auslöst, der 
aber inzwischen etwas ganz anderes als 
Control-Z bedeutet. 

Änderungen im CP/M-File 

Wenn Sie die Erweiterungszeichen im 
File ändern, müssen Sie stets 31 Bytes 
für die Längendefinition vorsehen. 30 
Bytes sind für die eigentlichen Zei¬ 
chenfolgen verwendbar. Und die Län¬ 
ge jedes Erweiterungszeichens muß na¬ 
türlich mit Ihrer Definition seiner Län¬ 
ge übe re in st im men. 

Was ist der Vorteil? Diese Strings ste¬ 
hen nach jedem Booten sofort zur Ver¬ 
fügung: SETKEYS und die entspre¬ 
chende Datei dazu ist nicht mehr nötig. 
Außerdem können Sie - wenn Sie doch 
SETKEYS-Dateien verwenden - 25 
Bytes mehr an selbst definierten Erwei¬ 
terungszeichen eingeben. Sie sehen 
später noch, wie wichtig diese einge¬ 
sparten 25 Bytes werden können. Die 5 
Bytes für #8F und #90 sollte man so 
lassen - wenn man diese auch ändert, 
dann stehen 30 Bytes im Eile zur Ver¬ 
fügung. Nicht mehr definierten Erwei¬ 
terungszeichen geben Sie einfach die 
Länge “Null“. 

Zumindest eine geänderte Belegung 
der Tasten fl bis f8 wird außerdem un¬ 
umgänglich sein. Sie sollten also in der 
ab #1900 beginnenden Tabelle der 
Tastenbelegung im CP/M-File er¬ 
setzen: 

#1900: #83 durch #11 = Connvl-Q 
#1902: #81 durch #1A = Control-Z 
#1949: #85 durch #13 = Control-S 
# I94D: #87 durch # 10 = Control P 
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Software für CPC und Joyce 


f— JOYCE 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 

WS-TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sie Dateien per Cursor¬ 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehle definieren, Textlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien ansehen, drucken ohne zwischen¬ 
zuspeichern, stets freie Diskettenkapazi¬ 
tät und Textlänge ermitteln und, und, und ... 

Nur DM 49 ? 80 

(unverbindliche Preisempfehlung) 

Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund¬ 
grube für Computerterfans! Mit Rabattcou¬ 
pons für unsere Software! Nur DM 34,80 

Neu: Diskette 18 - MacroPack/Z80 

Assemblerprogrammierung für Einsteiger 
und Profis - ZöO-Makroassemblcr mit (ink- 
fähigem Code, Linker, Debugger und Editor. 


1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 

5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 

10- BizBasic - CPC-Basic-Erweitcrung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 

* auf dem CPC-464/664 nur mit Speichcr- 
erweiterung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Prcisempfehlung) 


Unser Kombi-Angebot: 

Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 
3-Zoller von Maxell für nur DM 99,80! 


3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9, 8500 Nürnberg 90 
Telefon 09 11/30 33 33 
Weitere Bezugsquellen: 

Firma Simon, 4600 Dortmund 1, Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 
Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911 /289028 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 
Weeske, 7150 Backnang, Tel. 07191/1528 
Fritz Obermeier, 4972 Löhne 1, Tel. Ö5732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 029Ö2/58040 


die ein eigenes Programm mit den 

XBIOS Routinen KM_SET_KEY 

und KM_SET_EXP AND - ähnlich 

aufgebaut wie in Joyce-Sonderheft 1 — 
verzichten könnte. (Prüfen der Ver¬ 
sions-Nummer usw.) Logischerweise 
wird es dadurch kürzer, und die Datei, 
auf die SETKEYS zurückgreifen wür¬ 
de. kann in ein Eigenprogramm mit 
eingebaut werden. Wieder ein paar Ki¬ 
lobytes gespart. Und sie müssen nicht 
> SETKEYS XYZ< eingeben, son¬ 
dern nur >XYZ<, um die Tastatur 
neu zu definieren und die Erweite¬ 
rungszeichen zu ändern.. 

Dateien mit unterschiedlichen 
T astendefinit ionen 

Natürlich können Sie auch für unter¬ 
schiedliche Anwendungen jeweils ent¬ 
sprechende Dateien mit den gewünsch¬ 
ten Tastenbelegungen erstellen: Eine 
für CP/M, Anwendung 1 - eine für 
CP/M. Anwendung 2, eine für Basic 
oder für LOGO und so weiter. 

Ohne Erweiterungszeichen kann gar 
nichts passieren, denn jede Tastenzu¬ 
ordnung ist ja immer irgendwie defi¬ 
niert - und sei es mit #9F = Tue 
nichts! 

Verwenden Sie Erweiterungszeichen 
und booten Sie jedesmal das Betriebs¬ 
system neu. gibt es ebenfalls keine Pro¬ 
bleme. Sie sagen SETKEYS, welche 
der Tastendefinitionsdateien gebraucht 
werden soll, und SETKEYS speichert 
sie in den jungfräulichen' Bereich der 
Bank 0 von #2876 an. 

Unregelmäßigkeiten ergeben sich, 
wenn - als Beispiel - in der ersten Datei 
Zeichen #99 mit Text oder Befehl 
> xxxxxxx < durch die Taste A und in 
der zweiten Datei Zeichen #99 mit 
Text oder Befehl >yyyyyyy< durch 
die Taste B ausgelöst wird. Nachdem 
die zweite Datei - ohne Zurücksetzen 
des Joyce - eingespielt wurde, löst so¬ 
wohl Taste A als auch die Taste B Zei¬ 
chen #99 mit >yyyyyyy< aus. 

(Oder haben Sie mit der zweiten Datei 
auf Taste A vorsichtshalber Zeichen 
#9F oder ein sonstiges Zeichen ge¬ 
legt? (Nur dann passiert das natürlich 
nicht). 

Schwierigkeiten mit den Grafik¬ 
zeichen # 80 bis # 9F 

Die Zeichen #80 bis nicht nur #9E, 
sondern sogar #9F sind in der Zei¬ 
chenmatrix wie alle anderen Zeichen 


definiert. Hier verbergen sich die Li¬ 
nien, die Sie sich bekanntlich am 
Schirm anzeigen lassen können, wenn 
Sie dies Mini-Programm in Basic ab¬ 
laufen lassen: 

FOR X= 128 TO 159:PRINT 
CHR$(X):: PRINT” ";:NEXT X 

Direkt durch eine Taste sind diese Li¬ 
nien nicht auf den Bildschirm zu zau¬ 
bern: wenn Sie irgendeiner Taste das 
Zeichen #8A (dezimal 138) zuordnen 
- der doppelte waagerechte Strich 
nimmt das System an. Sie wünschen 
das Erweiterungszeichen #8A. Durch 
nichts läßt sich der Interpreter des Ba¬ 
sic von dieser mit ihm vereinbarten 
Auffassung abbringen. Es bleibt also 
nur der Weg über Befehle wie: 

PRINT CHR$(138) oder PRINT 
STRING$(75 , 138) 

Fazit für Basic: Erweiterungszeichen 
funktionieren wie auch unter CP/M, 
aber die in der Zeichenmatrix definier¬ 
ten Zeichen mit der gleichen Hex- 
Nummer können nur über PRINT-Be- 
fehle ausgelöst werden. 

Auch bei der Arbeit mit CP/M sind die 
Zeichen #80 bis #9F durch Tasten¬ 
belegung nicht direkt anzusprechen. 
CP/M bearbeitet sie als Erweiterungs¬ 
zeichen. 

In Assemblerprogrammen können Sie 
aber trotzdem Strings definieren, die 
die Zeichen # 80 bis # 9F aus der Zei¬ 
chenmatrix enthalten. Legen Sie eine 
Stringketle fest, die Sie mit der BDOS- 
Funktion 9 ausgeben oder ein Zeichen 
für die BDOS-Funktion 2. so kann Ihr 
String neben den Buchstaben. Zahlen 
und sonstigen ausdruckbaren Zeichen 
auch Steuerzeichen von # 00 bis # 1F 
und auch die Zeichen #80 -#9F (de¬ 
zimal 128 bis 159) aufweisen. Dann 
wird von Ihrem Assembler-Programm 
nicht das Erweiterungszeichen, son¬ 
dern das in der Zeichenmatrix definier¬ 
te Zeichen angesprochen. Natürlich 
nur auf dem Bildschirm. 

LINE: DEFM 0DH,ÜAH.8AH,8AIL 
8AH.8AH.8AH.8AIL8AH, ’ > $’ 

zum Beispiel erzeugt mit der BDOS- 
Funktion 9 eine kurze doppelte Pfeilli¬ 
nie. die Sie für Ein- oder Ausgabezei¬ 
len in COM-Files verwenden könnten. 
So lassen sich mit den Zeichen # 80 bis 
#9F durchaus in Assemblerprogram¬ 
men auch Umrahmungen oder Gliede¬ 
rungen des Bildschirmes durch Trenn¬ 
linien aufbaucn. 


(Horst Buchholz/rs) 
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Ich bestelle hiermit aus Ihrem Angebot: 


Am. Best Nr. Beieietmubq 

Präs in DM 

Am Best Ni 

. Beleimung 

Preis in DM 


DMV-Software für CPC 


_ 1136 

Scperre Challenjo Cass 

44.- 

_ 201 

Copyshop (Hardcopy Programm) Cass 

59- 

_ 1137 

Summe Challenge 3‘Disk 

59- 

_ 202 

Copyshop 3tlisk 

69- 

_ 1138 

Crary Cars Cass 

39- 

_ 203 

Copyshop (tatet) S25 f ftsfc 

69- 

_ 1139 

Craay Cars 3'O.sk 

49- 

_ 101 

Power Spiele, 4 Casi 

5Ct- 

_ 1341 

Go« Sdvw Berns Cass 

49- 

_ 102 

Pow-SouM, 4 3-Disk 

m- 

_ 1342 

GoAO Silver Brons 3Disr; 

19- 

_ 103 

States. Cass 

24- 

_ 155 

Coiossus Man Jong Cass 

35- 

_ 104 

Startest 3'Disx 

29,- 

_ 156 

Cotesus Man 3sn B 3'Di» 

<9- 

_ 100 

Knw3U.sk 

29,- 

_ 149 

Champonship Sonnt Cass 

35- 

_ 204 

Spaal Öfter Not 31Ksi 

89.- 

_ 150 

Championship Sonnt 3Dtsx 

49- 

_ 205 

Speoa Oder No 2 3%k 

69.- 




_ 107 

Speoa! Otter No3 3'&s* 

49,- 

_ 1133 

WI&3H3TM. 

49,- 

_ 206 

Contert CPC Cass 

49,- 

_ 1105 

Drud II, Ih» EnHjnmen! Cass 

32- 

_207 

Confe«tC?C3Uisk 

59.- 

_ 1106 

Oruo 11 . Tne Emgnmeni 3"fiisk 

49- 

_ 209 

FAst BAac COMptei 

69- 


SUPER SAMPLER 


_ 1011 

Fantaslic Fow 

49,- 

_ 1345 

4 Scccer Simulator 3T)isl 

49- 

_ 212 

Solhtee Experiment Cass 

59- 

_ 1346 

Fksri Acs Cass 

45- 

_ 213 

Sokwa/e-Expemnenl Disk 

69- 

_ 1347 

Fligil Ace 3‘Oisk 

•65- 

_ 210 

Fete! 30 CPC Cass. 

59- 

_ 1348 

Game Sei Match 2 Cass 

45- 

_ 211 

Fralfc 3D-CPCD.sk 

69- 

_ 1349 

Game Set Match 2 3%k 

65- 


CPC-Splele 


_ 1.151 

Classic Games 4 Cass 

31- 

_ 1331 

Mad Balls Cass 

35- 

_ 1352 

Classic Games 4 3 -Disk 

54,- 

_ 1332 

Mad8alls3U.sk 

49- 

_ 1353 

Ten fre-a: Games 3 Cass 

45- 

_ 1333 

SupeHangOn Cass 

39- 

_ 1354 

Ten Great Games 3 3'Ds> 

54.- 

_ 1334 

Supe Hang On 3T)rs» 

49.- 

_ 1355 

GiarlsCass 

45- 

_ I33S 

Banaten Cass. 

39-‘ 

•_1 1356 

Giaits 3Dsk. 

69- 

_ 1204 

Fpottullmarager II Cass 

35- 

_ 11 2 

The Wodd'sGreatesi Cass 

35- 

_ 1205 

Fooöallmanager II 3TXs» 

49- 

_ 113 

TheWortd'sGiealESl3-Oisk 

49- 

_ 159 

Dan Datei! Cass 

29.- 

_ 114 

6 Computer Hits Cass 

35- 

_ 160 

Dan Da« 11 3Uisk 

49.- 

_ 115 

6 Compiler Hfls 3T)lsk. 

49- 

_ 120 

Ewnng $» Cass 

29- 

_ 1 10 

0 Hl Games Cass. 

44- 

_ 121 

Evenng Star 3Ul5k. 

49- 

_ J!| 

»Hl Games 3m 

49- 

_ 1176 

Pink Panther Cass 

35- 

_ 108 

Sokl GoWCass 

35- 

_ 1177 

PinkPantaet 3Disk 

49.- 

_ 109 

Seid Ged 3 Disk 

65.- 


An: 8e9 Nr 

BerecMung 

We.s m OM 

_ 501 

V24 Patinen Sei 

3- 

_ 502 

Netamieatirayo-Set 

99- 

_ 503 

EcltaeitulxpiaimenSei 

MS- 

_ 512 

EPBOMflAM Piatoei Set 

199- 

_ 511 

CertronestyallnenS« - 

129- 


Platinen, unbestuckt 


_sw Certrcnicspialme letnseaig oescnicmiiii 

_so« NtUtMeü&ne ler-seitig oesctscbtet* 

_ S09 EcWMuhr (beidseitig ttichclitel) 

_510 MIC* Irtterlacs urnJ Timer Platinen 


+ PortoAferpackung 

I«nd3.-DM Ausland 5,- DM) 


Gesamtbetrag 


D Den Beitag bejahte ich mittels des beigefugten terrecimungssenecks 
^ □ ich bitte um Lieferung per Nachnahme mtügl <Ki Nachnahmegebühr (nur innerhalb Oer BRD) 

DM 


Unterst l»A (be- ».iderjinngen unlersctmfi des geseui.c-ien Vertreters) 


Bücher-Service 

ich bestelle hiermit aus Ihrem Angebot: 


PC-Bestellservice 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


40) _Seck Prakt fachwarbötung mit Joyce 89.-DM 

402 _Stck. Die BASIC2IOOLBOX 49,-DM 

403 _Stck. Dtstetje zum BASIC28uch 29,- DM 

MS-DOS 5 W 

410 _Sick Freie CPU Programme 34,80 DM 

4)2 _Stck Das Fbppytwch zum CPC 49,- DM 

413 _Sick 0asCPfM5aitiingsbüCh 2umCPC49,- DM 

4)4 _Stck CRC Ups und Irlöcs, Band 2 39,-DM 

415 _Stck Das Maschmensprachebuch 

zum CPC 39,- DM 

416 _stck Das groSe Gratikbuch zum CPC 49,-DM 

417 _Stck Das greöe LOGO Buch zu CPC 

und jOrCE 39,- DM 

418 _Sick Das große JOYCEBuch 59,-DM 

450 _Stck Führer zum Joyce 29,80 DM 

451 _Stck Führer zum CPC 19.80 DM 

452 _Stck Führer zum CPiM 19.80 DM 

453 _Stck Joyce für Einsteiger 29,- DM 

461 _Stck Das BASIC Buch zum 6128 39,-DM 

462 _Stck. 464 Ins & tricks 39,- DM 

463 _Stck 464 Peeks & fbkes 29,-DM 

464 _Stck CPC HarrWareenverterungen 49,-DM 

465 _Stck 464 Intern 69,- DM 

121 _Stck Ernlühnrng in 'Wordstar 42.- DM 

422 _Stck Arbeiten mit dBase 11 48,-OM 

425 _Sick. Den JOrCE programmieren 38 - DM 

419 _Stck Jc^ce-Oas Praxisbuch zur 

textverarbe-tung 35.- DM 


51/9- 

31/2- 


22211 

2221 E 

InloWaie (MS-DOS) 69,- DM 

2222 D 

2223 

InloWare (PC-DOS) 69,- DM 

2224 D: 

2225 El 

InloWare (GW Basic) 69 - OM 

222 6 C| 

2227 □ 

InloWare (Ouick Basic) 69,- DM 

2228 D 

2220 

InloWare (Turbo Basic) 69,- DM 

2230 CI 

2231 Z 

IntoWare (Quick C) 69,- DM 

2232 D 

2233 □ 

InloWare (Turbo C) 69,- DM 

2234 D 

2235 _ 

InloWare 

(Assembler 8086/8088) 69,- DM 

2236 : 

2237 □ 

InloWare (Lotus 1-2-3» 69 - OM 

2238 E 

2239 0 

InloWare (MS-Wort 10/4.01 69.- OM 

2240 C 

2241 r 

InloWare (Wort Perfeti 4.25169,- DM 

2242 E 

22 43 El 

InloWare (PC-Grundlagen) 69 - DM 

2244 E 

2245 

InfoWate(C-Grundlagen) 69.- DM 


5V 

3 Va“ 


229 

235 

Hyperkey (ms-dosi 

99.- DM 

224 L 

223 ' 

CGX Version 1.2<ms-dos: 

149,- DM 

244 

245 

CGX-Updale V Version 10 

24,- DM 

22S 

231 

Fraktal Generator 2D 

49,- DM 

248 

249 C 

Fraktal Generator 3D 

69,- DM 

227 

233 □ 

BCI DisAsm/i86 

199,- DM 

228 

234 E 

ConText PC (ms-oosi 

99,- DM 

238 E 

239 E 

Maskedlt Plus imsdosi 

99,- DM 

236 

237 

MausAII ii.rs uosi 

29.90 DM 

242 r 

243 

FontEdit PC ms-dosi 

99,- DM 

129 E 

185 

PC Spielebox No. 1 

49,- DM 

1291 

1292 

PC Spielebox No. 2 

49,- OM 

161 L 

162 

Know PC imsdosi 

49,- DM 

1293 ~ 

1294 □ 

Erganzungsdlskette 

29,- DM 

186 

187 

Underground 

49,- DM 

252 ~ 

253 

ERGO 

149.- DM 


-i Den Betrag bezahle ich mittels des beigefugten Vferrechnungsschecks 
—! Ich bitte um Lieferung per Nachnahme (nur innerhalb der BRD) Bei Nachnahme tomml zum o.g. Betrag 
loch die Nachnahmegebühr hinzu. 


+ Porto/Verpackung 

(Inland 3,- DM / Ausland 5, - DM) 


Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 


Gesamtbetrag 


»Kleinanzeigen-Markt« 


Private Anzeigen: Nur DM 5, jeangefangene Zeile 

Geschäftliche Empfehlungen: DM 8.- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer 

Kreuzen Sie biitean, in welche Rubrik (s. Karte) Ihre Anzeige gehört, schreiben Sie Ihren Text in die Karte Oedes Kästchen 

ein Zeichen, Buchstabe, Satzzeichen oder Wortzwischenraum) 

Achtung ! Der Abdruck erfolgt nur gegen Vorkasse (Verrechnungsscheck) 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren »PC International« für 

private Zwecke gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text. (Bitte deutlich in Druckbuchstaben schreiben!) 


□ Die Anzeige soll als Chiffre-Anzeige erscheinen (nur möglich bei Privat-Anzeige) 
Chiffre-Gebühr 10,- DM zzgl zum Anzeigenpreis 
In dieser Rubrik: 


Biete an C Suche □ Tausch □ Stellenmarkt/freie Mitarbeit 
Hardware Hardware J Geschäftsverbindungen 

Software □ Software _ Verschiedenes 

Bei Angeboten: 

ich bestätige, daß ich alle Rechte an den , - .„ u —tz-;- 

angebotenen Sachen besitze. Datum Unterschritt (bei Minderjährigen des gesetzl. Vertreters) 
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Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 






A T I 0 N A L 



»Kleinanzeigen-Markt« 

Absender: /Bille genaue Anschrift angeben!) 

Name 

Vorname 

Firma 

Straße/Nr./Postfach 

PLZJÖri 


Bitte 

ausreichend 

frankieren 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



»JOYCE-Bestellservice« 

Absender: (Bitte genaue Anschrift angeben!) 

Name 

Vorname 

Firma 

Straße/Nr /Postfach 

PLZ/Ort - - 


Bitte 

ausreichend 

frankieren 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 


3440 Eschwege 



»CPC-Bestellservice« 

Absender: /Bitte genaue Anschrift angeben!) 


Name 

Vorname 


Firma 


Straße/NrJPosifach 


PLZ/Ort 


Bitte 

ausreichend 

frankieren 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



»Bücher-Service« 

»PC-Bestellservice« 


Absender: (Bitte genaue A n scbrift angeben!) 


Name 


Vorname 


Firma 


Straße/Nr. /Postfach 
PLZ/Ört 


Bitte 

ausreichend 

frankieren 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 


3440 Eschwege 





































































Das Software-Experiment 

für CPC 464 / 664 / 6128 

Autor: Matthias Uphoff 

Die erfolgreiche Serie aus PC International jetzt in Neuauflage: 10 abenteuerliche Ausflüge 
in die Welt der Computergrafik, Simulation und Künstlichen Intelligenz mit insgesamt 
17 Programmen auf Diskette/Kassette und einem umfangreichen 180-seitigen Handbuch! 


Unter anderem bietet das Software- 
Experiment: 

Komplexe Grafik: Ein komfortabler Fraktal-Generator 
für den CPC 

Das Spiel des Lebens: Nach einem einfachen Prin¬ 
zip wachsen auf dem Bildschirm farbige Kristallmuster: 
Sehen und staunen! 

Das Ökologie-Experiment: Gestalten und erfor¬ 
schen Sie die Gesetzmäßigkeiten eines künstlichen klei¬ 
nen Lebensraumes, der in animierter Farbgrafik darge¬ 
stellt wird. 

Der Computer als Stratege: Ein ausgeklügeltes 
System macht den CPC zu einem starken Gegner im 
japanischen Gobang-Spiel. Verbessern Sie die Spiel¬ 
stärke durch Abändern der Zugbewertung! 

Mit roher Rechengewalt: Mit einem “Brute-Force“- 
Algorithmus spielt Ihr Rechner in einem afrikanischen 
Bohnenspiel alle menschlichen Gegner an die Wand — 
oder können Sie ihn schlagen? 

Der Computer lernt: Bringen Sie Ihrem CPC 
“spielend“ Minischach bei. Mit jeder Partie wird das 
Programm ein bißchen besser... 

Wordmaster: eines der intelligentesten Programme 
des Software-Experiments: Raten Sie ein Wort, das sich 
Ihr PC ausgedacht hat — und das ist eigentlich nichts 
besonderes. Aber dann rät der Rechner ein Wort, das Sie 
sich ausgedacht haben! Wer braucht weniger Versuche? 
Sie werden sich wundern... 

Wortketten: Mit einer raffinierten Methode löst der 
CPC Wortketten-Rätsel — oder er erfindet neue Rätsel, 
ganz wie Sie wollen! 

Entwicklungshilfe per Computer: Verbessern Sie 
in einer aufwendigen Simulation als Entwicklungshelfer 
die Lebensbedingungen eines Volkes in der Savanne 
Afrikas. Seuchen und Hungersnöte drohen, und Ihre 
Mittel sind begrenzt... 

Pascal läßt grüßen: Ein erstaunlich einfaches Pro¬ 
gramm enthüllt verborgene Strukturen im Pascal'schen 
Dreieck und stellt Sie grafisch dar. 



GOBANG-Spiel 



ÖKOLOGIE-Experiment 


Kassette 

Best.-Nr. 212 

59.- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservlce bestellen, gilt folgendes: 
Inland: Ausland: 

Einzelpreis 59,- DM Einzelpreis 59,- DM 

zzgl. Versandkosten 3,- DM zzgl. Versandkosten 5,- DM 

Endpreis 62,- DM Endpreis 64.- DM 




3“-Diskette 

Best.-Nr. 213 

69,- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservlce bestellen, g,„ .u 
Inland: Ausland: 

Einzelpreis 69,- DM Einzelpreis 

zzgl. Versandkosten 3,- DM zzgl, Versandkosten 

Endpreis 72.- DM Endpreis 

gendes: 

69,- DM 
5,- DM 

74,- OM 


Doch das Software-Experiment ist weit mehr als ein außerordentlich vielseitiges Programmpa¬ 
ket: Das Handbuch vermittelt auf anschauliche und unterhaltsame Weise, welche Datenstruktu¬ 
ren und Algorithmen dem CPC phantastische Grafiken und verblüffende Intelligenzleistungen ent¬ 
locken. Der ideale Lehrgang für den angehenden Top-Programmierer — hervorragend geeignet 
für den Informatik-Unterricht an Schulen! 

— Bitte benutzen Sie die Bestellkarte — 

DMV-Verlag • Postfach 250 - 3440 Eschwege 

























Programmierer aufgepaßt! 


DMV bringt jetzt: 



Das Buch zu BASIC2 

PC1512/1640-Besitzer können aufatmen. 
Jetzt ist sie da, die BASIC2-Toolbox. Mit die¬ 
sem einzigartigen Buch sind Sie nun in der 
Lage, das Locomotive BASIC2 besser auszu¬ 
nutzen, die Programmierung wird zum Kin¬ 
derspiel. 

Die BASIC2-Toolbox bietet nicht die x-te Ein¬ 
führung, sondern gibt anhand leistungsstar¬ 
ker und praxisorientierter Routinen und Pro¬ 
gramme den nötigen Durchblick. 

Schritt für Schritt lernen Sie die strukturierte 
Programmentwicklung bis hin zum fertigen 
und lauffähigen Programm. Der Text ist in 
leicht und für jedermann verständlicher 
Form geschrieben, der Lerneffekt ist quasi 
garantiert. Alle Beispielprogramme sind so¬ 
fort nachvollziehbar und stammen aus der 
täglichen Anwendungspraxis. 

Einige Beispiele aus dem Inhalt: 

Kurze Einführung in die Software-Entwicklung 

- Grundlagen und Struktogramme 
Werkzeuge für BASIC2 

- Lister ermöglicht die formatierte Druckausgabe für 
BASIC2-Programme 

- COMP komprimiert Ihre BASIC2-Programme 

- Preprozessor für Include-Dateien 

- Cross ist ein Generator zur Erzeugung von Quer¬ 
verweislisten 

Werkzeuge zur Behandlung von Textdateien 

- Auswertung von Word-Texxdateien 

- CUT, ein Filter für Textdateien 

- PASTE,Vereinigung von Textdateien 

Werkzeuge zur Software-Entwicklung 

- CALC, ein Rechner für verschiedene Zahlensy¬ 
steme 

- DUMP. Ausgabe beliebiger Dateien im Hexformat. 

- COMHEX, Umwandlung von COM-Dateien in 
HEX-Files 

Ein kompletter Disassembler für den Intel 8086 

- Von der Struktur zum fertigen Programm. 

Ein Disassembler wird programmiert. 

Die BASIC2-Toolbox 

Autor: Günter Born, 

250 Seiten, 54 Abb., 

ISBN Nr. 3-926177-01-2 (Best.-Nr. 402) 


Inland: Ausland: 

Einzelpreis .19. DM Einzelpreis 49 - DM 

zzgl. Versandkoslen 3' - DM zzgl. Versandkoslen 5. _ DM 

Endpreis 52,- DM Endpreis 54,- OM 

Zu beziehen über den Computerfachhandel, 
den guten Fachbuchhandel oder direkt beim 
Verlag. Händleranfragen erwünscht. 

Bitte benutzen Sie unsere Bestellkarte 

DMV-Verlag 

Postfach 250 ■ 3440 Eschwege 


JOYCE 


die ein eigenes Programm mit den 

XBIOS Routinen KM_SET_KEY 

und KM_SET_EXPAND - ähnlich 

aufgebaut wie in Joyce-Sonderheft 1 - 
verzichten könnte. (Prüfen der Ver¬ 
sions-Nummer usw.) Logischerweise 
wird es dadurch kürzer, und die Datei, 
auf die SETKEYS zurückgreifen wür¬ 
de, kann in ein Eigenprogramm mit 
eingebaut werden. Wieder ein paar Ki¬ 
lobytes gespart. Und sie müssen nicht 

> SETKEYS XYZ< eingeben, son¬ 
dern nur > XYZ <, um die Tastatur 
neu zu definieren und die Erweite¬ 
rungszeichen zu ändern.. 

Dateien mit unterschiedlichen 
Tastendefinitionen 

Natürlich können Sie auch für unter¬ 
schiedliche Anwendungen jeweils ent¬ 
sprechende Dateien mit den gewünsch¬ 
ten Tastenbelegungen erstellen: Eine 
für CP/M, Anwendung 1 - eine für 
CP/M, Anwendung 2, eine für Basic 
oder für LOGO und so weiter. 

Ohne Erweiterungszeichen kann gar 
nichts passieren, denn jede Tastenzu¬ 
ordnung ist ja immer irgendwie defi¬ 
niert - und sei es mit #9F = Tue 
nichts! 

Verwenden Sie Erweiterungszeichen 
und booten Sie jedesmal das Betriebs¬ 
system neu, gibt es ebenfalls keine Pro¬ 
bleme. Sie sagen SETKEYS, welche 
der Tastendefinitionsdateien gebraucht 
werden soll, und SETKEYS speichert 
sie in den jungfräulichen’ Bereich der 
Bank 0 von #2876 an. 

Unregelmäßigkeiten ergeben sich, 
wenn - als Beispiel - in der ersten Datei 
Zeichen #99 mit Text oder Befehl 

> xxxxxxx < durch die Taste A und in 
der zweiten Datei Zeichen #99 mit 
Text oder Befehl >yyyyyyy< durch 
die Taste B ausgelöst wird. Nachdem 
die zweite Datei - ohne Zurücksetzen 
des Joyce - eingespielt wurde, löst so¬ 
wohl Taste A als auch die Taste B Zei¬ 
chen #99 mit >yyyyyyy < aus. 

(Oder haben Sie mit der zweiten Datei 
auf Taste A vorsichtshalber Zeichen 
#9F oder ein sonstiges Zeichen ge¬ 
legt? (Nur dann passiert das natürlich 
nicht). 

Schwierigkeiten mit den Grafik¬ 
zeichen # 80 bis # 9F 

Die Zeichen # 80 bis nicht nur # 9E, 
sondern sogar #9F sind in der Zei¬ 
chenmatrix wie alle anderen Zeichen 


definiert. Hier verbergen sich die Li¬ 
nien, die Sie sich bekanntlich am 
Schirm anzeigen lassen können, wenn 
Sie dies Mini-Programm in Basic ab¬ 
laufen lassen: 

FÜR X= 128 TO 159:PRINT 
CHR$(X);: PRINT“ “;:NEXTX 

Direkt durch eine Taste sind diese Li¬ 
nien nicht auf den Bildschirm zu zau¬ 
bern; wenn Sie irgendeiner Taste das 
Zeichen #8A (dezimal 138) zuordnen 
— der doppelte waagerechte Strich — 
nimmt das System an, Sie wünschen 
das Erweiterungszeichen #8A. Durch 
nichts läßt sich der Interpreter des Ba¬ 
sic von dieser mit ihm vereinbarten 
Auffassung abbringen. Es bleibt also 
nur der Weg über Befehle wie: 

PRINT CHR$(J38) oder PRINT 
STRING$(75,138) 

Fazit für Basic: Erweiterungszeichen 
funktionieren wie auch unter CP/M, 
aber die in der Zeichenmatrix definier¬ 
ten Zeichen mit der gleichen Hex- 
Nummer können nur über PRINT-Bc- 
fehle ausgelöst werden. 

Auch bei der Arbeit mit CP/M sind die 
Zeichen #80 bis #9F durch Tasten¬ 
belegung nicht direkt anzusprechen. 
CP/M bearbeitet sie als Erweiterungs- 
Zeichen. 

In Assemblerprogrammen können Sie 
aber trotzdem Strings definieren, die 
die Zeichen #80 bis #9F aus der Zei¬ 
chenmatrix enthalten. Legen Sie eine 
Stringkette fest, die Sie mit der BDOS- 
Funktion 9 ausgeben oder ein Zeichen 
für die BDOS-Funktion 2, so kann Ihr 
String neben den Buchstaben, Zahlen 
und sonstigen ausdruckbaren Zeichen 
auch Steuerzeichen von #00 bis # 1F 
und auch die Zeichen #80 -#9F (de¬ 
zimal 128 bis 159) aufweisen. Dann 
wird von Ihrem Assembler-Programm 
nicht das Erweiterungszeichen, son¬ 
dern das in der Zeichenmatrix definier¬ 
te Zeichen angesprochen. Natürlich 
nur auf dem Bildschirm. 

LINE: DEFM 0DH,0AH,8AH,8AH, 
SAH, SAH, 8AH, 8AH, 8A H,' > $’ 

zum Beispiel erzeugt mit der BDOS- 
Funktion 9 eine kurze doppelte Pfeilli¬ 
nie, die Sie für Ein- oder Ausgabezei¬ 
len in COM-Files verwenden könnten. 
So lassen sich mit den Zeichen # 80 bis 
#9F durchaus in Assemblerprogram¬ 
men auch Umrahmungen oder Gliede¬ 
rungen des Bildschirmes durch Trenn¬ 
linien aulbauen. 

(Horst Buchholz/rs) 

























Das Beste vom aktuellen Spielemarkt m «u« cpc« 
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OHNE ABBILDUNG 


Game Set Match 2 

Steve Davis Snooker, Super Hang On, Jan 
Bothams, Test Match, Baske! Master, Super 
Bowl, Track + Field. Nick Faldo Plays the 


Ten Great Games 3 

10th Frame, Firelord, Ranarama, Fighter Pi¬ 
lot, Leaderboard, City Slicker. Rocco, Impos- 
saball 


6 Computer Hits 

Cass. 35,- DM* 

10 Hit Games 


4 Soccer Simulator 


StraßentuBball. Hallenfußball. Rasentußball 
und ein Geschicklichkeitsspiel 

Disk. 3“ 49,- DM* 

Flight Ace 

AFT, Heathrow AirTraffic Control, Strike For¬ 
ce Harrior, Tomahawk, Ace. Spitfire 40 
Cass. 45.- DM* Disk. 3" 65.- DM 


Open, Championship Sprint, Winter Olym- 
piad, Matchday II 

Cass. 45,- DM* Disk. 3“ 65.- DM' 

Classic Games 4 

3-D-Schach. Bridge, Damespiel, Back¬ 
gammon 

Cass. 39,- DM* Disk. 3“ 54,- DM' 


Cass. 45.- DM* Disk. 3“ 54,- DM' 

Giants 

Out Run. Gauntlet, California Games. Rol¬ 
ling Thunder 

Cass. 45.- DM* Disk. 3* 69,- DM' 

The World's Greatest 

Cass. 35,- DM* Disk 3" 49,- DM' 


Cass. 44,- DM* Disk 3" 49,- DM* 

Solid Gold 

Cass. 35,- DM* Disk 3“ 65,- DM* 

Bille verwenden Sie lür Ihre Bestellung unsere ßeslelltartc! 

‘Unabhängig von der Anzahl der bestehlen Pro¬ 
gramme berechnen wir lür das Inland 3 .- DM bzw 
für das Ausland 5 , - DM Porlo und Verpackung 
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System 2000 

Ein neues Festplatten-Konzept 
für den PCW von Vortex 

Allen bisher für den PCW angebotenen Festplatten-Units war ein ganz we¬ 
sentlicher Mangel zu eigen: Sie waren ausschließlich zum Einsatz an diesem 
einen Rechner geeignet. In ihrem neuen Festplatten-System bietet die Fa. 
Vortex nun Massenspeicher an, welche auch mit Rechnern anderen Typs 
Zusammenarbeiten können. Diese Tatsache könnte manchem PCW-Besitzer 
die relativ hohen Anschaffungskosten eines Festplatten-Subsystems erträg¬ 
lich machen und den Weg zu wirklich bequemer Arbeit am PCW bahnen. 


“Personality Modul“ heißt das Zauber¬ 
wort, welches die universelle Ver¬ 
wendbarkeit der Hard Disks des Sy¬ 
stems 2000 erklärt. 

Dieser Begriff steht für eine kleine 
Box, über welche die Verbindung der 
eigentlichen Festplatten-Einheit mit 
dem jeweiligen Rechner hergestellt 
wird. 

Die wirklich aufwendigen Elemente ei¬ 
nes Festplattensystems, wie 3,5“- 
Winchester-Laufwerk, Controller und 
Netzteil befinden sich beim System 
2000 in einer Festplatten-Grundein- 
heit. zu welcher der Käufer ein seinem 
Rechnertyp angepaßtes “Personality 
Modul“ geliefert bekommt. Soll nach 
einem Systemwechsel die Festplatte an 
einem anderen Rechnertyp zum Ein¬ 
satz kommen, muß dann lediglich das 
zugehörige “Personality Modul“ neu 
erworben werben. Eine Neuanschaf¬ 
fung der wesentlich teureren Harddisk 
ist nicht erforderlich. 

Interessant ist in diesem Zusammen¬ 
hang vielleicht, daß auf ein und dersel¬ 


ben Platte mittels entsprechender Kon¬ 
figuration durchaus auch Bereiche für 
zwei Rechner verschiedenen Typs 
gleichzeitig eingerichtet werden 
können. 

Eine Einschränkung hinsichtlich des 
universellen Einsatzes muß jedoch ge¬ 
macht werden: Für Rechner mit dem 
Prozessortyp 80286, ATs also, sind die 
Platten des Systems 2000 nicht ge¬ 
eignet. 

Wir testeten eine 20-MB-Festplatte im 
Einsatz an einem PCW 8512. 

Ausstattung 

Zum Lieferumfang gehören neben der 
Grundeinheit, dem Personality Modul, 
und den erforderlichen Anschlußka¬ 
beln eine Diskette, welche die zum 
Start von Rechner und Platte erforder¬ 
lichen Harddisk-Versionen der Be¬ 
triebsysteme CP/M Plus und Loco- 
Script (Version 1.42) enthält, sowie 
eine Reihe von Hilfsdateien, auf die 
noch einzugehen sein wird. 


Die Grundeinheit ist ein formschöner 
Kasten mit den Abmessungen 22*23*7 
cm (L*B*H), in der Farbe abgestimmt 
auf den PCW. Der Netzschalter befin¬ 
det sich etwas unglücklich an der Rück¬ 
seite des Gerätes, die Vorderseite weist 
zwei Leuchtdioden auf. Die erste (rot) 
zeigt den Betriebszustand des Hard¬ 
disk-Units an — der Joyce kann auch 
ohne Inbetriebnahme des Systems 2000 
verwendet werden — die zweite (oran¬ 
ge) dient der Anzeige von Datentrans¬ 
fers zwischen Rechner und Platte. 

Das Personality Modul wird am Ex¬ 
pansion Port des PCW direkt ange¬ 
steckt. die Leitungen für den Anschluß 
weiterer Peripheriegeräte sind durch¬ 
geschleift. Die Verbindung von Modul 
und Grundeinheit wird mittels eines 
Buskabels hergestellt, welches beider¬ 
seits fest verschraubt werden kann. 
Man hätte sich eventuell etwas mehr 
Länge gewünscht, um in der Unter¬ 
bringung der Platten-Einheit variabler 
zu sein. So kann sie nur in unmittelba¬ 
rer Nähe des PCW postiert werden. 
Als Untersatz für diesen ist sie mit ih¬ 
ren Abmessungen weder gedacht noch 
geeignet. 

Installation 

Nach korrektem Anschluß läuft beim 
ersten gemeinsamen Start von Rechner 
und System 2000 mit Hilfe der Hard- 
disk-CP/M-Systemdiskette eine auto¬ 
matische Installationsprozedur ab. in 
der die Festplatte formatiert und parti¬ 
tioniert wird. Dauer: etwa drei Minu¬ 
ten. Anschließend werden alle dem Sy¬ 
stem zugehörigen Dienstprogramme 
selbsttätig auf die Festplatte kopiert. 
Während dieser Abläufe hat man Gele¬ 
genheit. das System erstmals bei der 
Arbeit zu beobachten. Es fällt auf, daß 
weder Plattenzugriffe noch das Ge¬ 
räusch des Lüfters akustisch störend 
sind. Dieser Eindruck hat sich im Ver¬ 
lauf der weiteren Arbeit mit dem Sy¬ 
stem bestätigt. 

Nach Ablauf der Erstinstallation ist die 
Festplatte in vier Partitionen, sprich: 
logische Laufwerke, von je 5 MB un¬ 
terteilt. welchen die Kennbuchstaben C 
bis F zugewiesen sind. 

Die RAM-Disk ist wie gewohnt ver¬ 
fügbar. 

Festplatten-Managemen t 

Bevor man nun beginnt, seine CP/M 
Dienstprogramme. LocoScript-Datei¬ 
en und die auf Disketten angesammel- 
ten sonstigen Datenbestände auf die 
Partitionen zu verteilen, sollte man 
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sich Gedanken machen, ob diese sei¬ 
tens des Herstellers vorgeschlagene 
Konfiguration der Platte in vier Berei¬ 
che gleicher Größe sowohl unter CP/M 
als auch unter LocoScript den eigenen 
Bedürfnissen für die Zukunft Rech¬ 
nung trägt. 

Dies gilt umso mehr als sich auch am 
System 2000 wie schon bei Tests ande¬ 
rer Festplatten am PCW herausstellte, 
daß die im Grunde hervorragende Da¬ 
teiverwaltung des LocoScript in der 
Version 1 nicht für das Management ei¬ 
ner Vielzahl von Laufwerken konzi¬ 
piert wurde. Je mehr Laufwerke und — 
innerhalb derselben - Gruppen mit 
Dateien bestückt sind, desto größer 
werden die Geschwindigkeitseinbußen 
beim Marsch durch die Dateiverwal¬ 
tung. Wir hatten jedoch den Eindruck, 
daß die Festplatte des Systems 2000 
mit diesem Manko von LocoScript bes¬ 
ser fertig wird als andere von uns gete¬ 
stete Modelle. 

Dennoch könnte unter diesem Aspekt 
- und im Hinblick darauf, daß z.B. 
mit dem Anwachsen der Datenbestän¬ 
de in dBase II unter Umständen eine 
Partition von 5 MB einmal zu klein 
werden kann, vielleicht von vornherein 
eine kleinere Anzahl an Bereichen vor¬ 
teilhafter sein, oder es sollten Partitio¬ 
nen unterschiedlicher Größe eingestellt 
werden. 

Bei einer späteren Neuaufteilung der 
Festplatte wird ebenso wie bei einer 
Formatierung der gesamte Datenbe¬ 
stand der Platte gelöscht. Es muß des¬ 
halb vorher eine komplette Datensiche¬ 
rung auf Diskette erfolgt sein, und an¬ 
schließend müssen die Daten ebenso 
zeitaufwendig zurückkopiert werden. 
Vielleicht hätte man seitens der Firma 
Vortex im Installationsprogramm für 
die Erstpartitionierung einen Dialog 
mit dem Benutzer vorsehen können. 

So muß man sich, falls eine andere An¬ 
zahl oder Größe der Partitionen geeig¬ 
neter erscheint, sofort nach dem ersten 
Setup des mitgelieferten Hilfsprogram¬ 
mes SYS2000 bedienen (Abb. 1). 
Dieser “Festplattenmanager“ dient 
einmal zur Formatierung und Neuein- 
stellung der Partitionen. 

Die Partitionsgrößen lassen sich direkt 
per Eingabe eines Zahlenwertes oder 
mittels der Cursortasten in Schritten 
von je 34 KB bewerkstelligen. 

Zu bedenken ist in diesem Zusammen¬ 
hang, daß CP/M zur rationellen Ver¬ 
waltung der Festplatte maximal nur 
insgesamt 2000 Verzeichniseinträge 
erlaubt. Entsprechend sind Überlegun¬ 
gen anzustellen, wie viele Dateien pro 
Partition später anfallen werden. Die 


Maxima für die gewählte Partitions¬ 
größe werden im Optionsmenü bei der 
Partition ierung angezeigt, so daß man 
entsprechend disponieren kann (Abb. 2). 
Ein besonders wichtiger Menüpunkt 
ermöglicht die Überprüfung der Fest¬ 
platte auf fehlerhafte Sektoren. Fest¬ 
platten weisen oft schon von vornher¬ 
ein fehlerhafte Bereiche auf. weitere 
können mit fortschreitender Betriebs¬ 
dauer irgendwann hinzukommen. 
CP/M und LocoScript benötigen je¬ 
doch zur fehlerfreien Arbeit einen zu¬ 
sammenhängenden Massenspeicher. 
Nun lassen sich zwar Defekte nicht 
wirklich beseitigen, aber der System- 
Manager kann fehlerhafte Sektoren 
markieren, für die Betriebssysteme 
quasi unsichtbar machen und damit von 
zukünftigen Schreib- und Lesevorgän¬ 
gen ausklammern. 

Die in derartigen Fällen zu ergreifen¬ 
den Maßnahmen sind in der Systemdo¬ 
kumentation sehr anschaulich erklärt, 
wie auch die weiteren Optionen des Sy¬ 
stemmanagements. 

Unter ZERO ergibt sich übrigens die 
Möglichkeit, den kompletten Inhalt ei¬ 
ner Partition zu löschen. 

Menüpunkte des Systemmanagers, de¬ 
ren Durchführung einen Datenverlust 
zur Folge hätten, sind zum Schutz vor 
Fehlern mit mehrfachen Sicherheitsab¬ 
fragen versehen, die ein rechtzeitiges 
Aussteigen ermöglichen. Wurde auf 
der Platte ein Bereich für die Arbeit mit 
einem Rechner anderen Typs reser¬ 
viert, so bleibt dieser von den 
Formatierungs- und Partitionierungs- 
Vorgängen unberührt. 

Ein kleines Manko fiel uns in der Do¬ 
kumentation zu diesem Programm auf: 
Bei einer Neuformatierung wird die 
Eingabe des sogenannten “Interleave- 
Faktors“ (auch “Interleaving Faktor") 
gefordert, einer Größe, welche die Ge¬ 
schwindigkeit der Lese- und Schreib¬ 
vorgänge auf der Platte mitbestimmt. 
Man kann sicher davon ausgehen, daß 
der vom Systemmanager vorgeschla¬ 
gene Faktor 4 gemeinhin die günstig¬ 
sten Werte ergibt. Dennoch wäre eine 
kurze Ausführung zu den Alternativen 
hier sinnvoll gewesen, oder man hätte 
besser auf das Angebot individueller 
Einstellung verzichtet, um nicht den 
weniger versierten Anwender an die¬ 
sem Punkte zu verunsichern. 

Unter dem Menüpunkt BOOTDISK 
wird die Möglichkeit geboten, einfa¬ 
cher als mit dem CP/M Dienstpro¬ 
gramm DISCKIT zusätzliche lauffähi- 
ge Startdisketten mit allen Systemfiles 
und dem Festplattentreiber zu er¬ 
stellen. 


Ein äußerst interessantes Hilfspro¬ 
gramm für den Einsatz des Systems 
2000 verbirgt sich hinter der Kurzbe¬ 
zeichnung EX. Es ist es wert, etwas 
ausführlicher betrachtet zu werden. 

Als Softwaretester am PCW sieht man 
sich gar nicht selten mit durchaus pro¬ 
fessionell konzipierten und vorgeblich 
ausgereiften Programmen konfron¬ 
tiert. deren Entwickler es jedoch offen¬ 
bar nicht für nötig gehalten haben, da¬ 
von Kenntnis zu nehmen, daß am PCW 
auch Festplatten zum Einsatz kommen. 
Derartige Programme beharren stur 
darauf, vom Laufwerk A: aus gestartet 
zu werden und die Datendisketten in 
Laufwerk A: oder Laufwerk B: vorzu¬ 
finden. Besonders ärgerlich fiel dieser 
Umstand bei einigen umfangreicheren 
Anwendungen auf. bei denen häufiger 
Sekundärmodule in den Speicher gele¬ 
sen oder Daten vom Datenträger einge¬ 
lesen werden müssen, Programme 
also, die ihres Umfangs und ihrer 
Komplexität wegen geradezu zum Ein¬ 
satz einer Festplatte aufforderten. 

Das Hilfsprogramm EX schafft nun ei¬ 
nen Ausweg aus diesem Dilemma. Es 
erlaubt beispielsweise die vorüberge¬ 
hende Zuordnung der Laufwerks-Ken¬ 
nungen A: und B: zu den ersten zwei 
Partitionen der Festplatte (wonach die 
Floppy-Laufwerke entsprechend als E: 
und F: anzusprechen sind). 

Korrekterweise wird in der Dokumen¬ 
tation darauf hingewiesen, daß diese 
Substitution natürlich mit Umsicht zu 
handhaben ist. denn Unachtsamkeit bei 
Lösch-Prozessen könnte in derartigen 
Fällen fatale Folgen haben. Man kann 
diese Gefahr mindern, indem man 
beim Systemstart die Datei EX.COM 
in die RAM-Disk verlagert, wo sie — 
bei Einrichtung eines entsprechenden 
Suchpfades -jederzeit aufrufbar ist. 
Mit “EX 0“ kann dann auch bei totaler 
Verwirrung über die derzeitige Konfi¬ 
guration jederzeit die Default-Einstel¬ 
lung wieder aufgerufen werden. 

Datensicherung 

Unerläßlich für jeden Festplattenbe¬ 
trieb sind Programme zur periodischen 
Sicherung der Datenbestände. Zu 
leicht können unerwartet auftretende 
Fehler der Hardware oder Bedienungs¬ 
fehler einen Datenverlust zur Folge 
haben. 

CP/M stellt zur Diskettensicherung 
von Datenbeständen, deren Größe das 
Fassungsvermögen einer Diskette 
übersteigt - man denke nur an dBase 
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Il-Datenbanken — kein geeignetes 
Dienstprogramm zur Verfügung. 

Das System 2000 steuert hierzu das 
Programm BACKDISK bei (Abb. 3). 
Dieses bietet diverse Möglichkeiten 
der selektiven Sicherung der Datenbe¬ 
stände. Dazu sind zunächst unter dem 
Menüpunkt OPTIONEN einige Vor¬ 
einstellungen vorzunehmen. Es seien 
hier nur einige der Optionen angeführt, 
welche die Prinzipien verdeutlichen: 
Es können sowohl komplette Partitio¬ 
nen als auch nach Dateinamen oder Ex¬ 
tension ausgewählte Datenbestände se¬ 
lektiv gesichert werden. Alle von 
CP/M gewohnten Wildcards sind hier¬ 
zu verfügbar. Zur Sicherung der Loco- 
Script-Dateien besonders geeignet ist 
das Erstellen von Sicherungskopien 
nach User-Bereichen (entsprechend 
den “Gruppen“ in LocoScript). 
BACKDISK überträgt die Sicherungs- 
dateien ihrem Umfang entsprechend 
auf eine Serie von Disketten. Dort wer¬ 
den sie in einem eigenen Format abge¬ 
legt, weshalb sie auch nur mittels der 
Rekonstruktions-Option dieses Pro¬ 
grammes zurückgelesen werden 
können. 

Als Gedächtnisstütze gleichsam über 
die gewählten Sicherungsoptionen 
kann BACKDISK veranlaßt werden, 
zu jedem Sicherungssatz eine Katalog¬ 
datei anzulegen, welche eine eventuel¬ 
le Rekonstruktion weitgehend automa¬ 
tisiert. Ganz wesentlich erleichtert 
wird die Datensicherung dadurch, daß 
Sicherungsdisketten nicht vorbereitet 
sein müssen. BACKDISK formatiert 
während der Sicherung selbst. 

Als nützlich erweist sich auch die Mög¬ 
lichkeit, die einmal getroffenen Ein¬ 
stellungen unter dem Menüpunkt 
SAVE für zukünftige Sicherungsläufe 
abzuspeichern. 

Die Option DISK-ID schließlich er¬ 
leichtert die Orientierung, falls einmal 
übersehen worden ist, eine Diskette zu 
beschriften, somit die Zugehörigkeit 
zu einem bestimmten Satz von Siche¬ 
rungsdisketten nicht mehr bekannt ist. 
Auf jeder Diskette wird in einem reser¬ 
vierten Bereich eine Identifikation ab¬ 
gelegt, welche die Anzahl der Dateien 
im Sicherungssatz, die Nummer der 
Backup-Diskette und die Sicherungs- 
ID enthält. Diese Daten können unter 
DISK-ID abgelesen werden. 

Rekonstruktion 

Die Wiederherstellung defekter Daten¬ 
bestände kann — sofern Sicherungsko¬ 
pien bestehen — nach drei unterschied¬ 


lichen Methoden geschehen, automa¬ 
tisch, selektiv oder manuell. Hier mag 
dazu der Hinweis genügen, daß selbst 
bei unvollständig vorhandener Siche¬ 
rung (Diskette verlegt oder defekt) 
noch eine teilweise Rekonstruktion 
zerstörter Daten möglich ist. 

Transportsicherung 

Letztlich sei noch das Programm 
PARK kurz erwähnt, welches — vor 
dem Abschalten von Festplatte und 
Rechner aufgerufen — die Lese- 
/Schreibköpfe der Platte auf einer spe¬ 
ziellen (datenfreien) Spur absetzt, so 
daß eventuelle Erschütterungen keinen 
Schaden an Platte und Daten anrichten 
können. Ist zuletzt mit LocoScript ge¬ 
arbeitet worden, muß vor dem Einsatz 
dieses Programmes natürlich kurz 
CP/M geladen werden. 

Dokumentation 

Es wurde löblicherweise völlig auf die 
Vielzahl an allenfalls für Systempro¬ 
grammierer und Hardwarefreaks inter¬ 
essanten technischen Daten und Details 
verzichtet, welche im Handbuch zu ei¬ 
ner früheren Vortex-Festplatte für den 
PCW anzutreffen waren. 

Das jetzige ist knapp, jedoch in allen 
wichtigen Punkten hinreichend aus¬ 
führlich und deutlich. 

Fach-Chinesich wurde durchgehend 
vermieden, so daß selbst ein Compu¬ 
terneuling, der die Festplatte ohne gro¬ 
ße Umstände als Massenspeicher ein- 
setzen möchte, damit problemlos zu¬ 
rechtkommen wird. 

Nachdem die Arbeitsgeschwindigkeit 
von Computersystemen heutzutage ge¬ 
radezu obsessiv gemessen und be¬ 
schrieben wird, muß hierzu im vorlie¬ 
genden Falle vielleicht auch noch ein 
Wort gesagt werden. Das Handbuch — 
offensichtlich identisch für sämtliche 
Festplattentypen des Systems 2000, die 
in formatierten Speicherkapazitäten 
von 20, 30, 40 und 60 MB angeboten 
werden — gibt als Wert für die mittlere 
Zugriffszeit lapidar “bis zu 30 ms“ an. 
Das wird als Spitzenwert allenfalls für 
die 60-MB-Platten zutreffen. 

Wir konnten unsere Testplatte zwar 
nicht durchmessen, aber der Vergleich 
mit der älteren WD 2000 aus dem glei¬ 
chen Hause — man vermutet die glei¬ 
che 3,5“-Platte im neuen Gehäuse — 
und den englischen Winchesters legt 


einen Wert von 85 ms nahe. Das wäre 
für Platten dieser Größe die Norm. 

Der Geschwindigkeitszuwachs gegen¬ 
über einem reinen Diskettenbetrieb ist 
in jedem Fall enorm, und in der Kom¬ 
bination mit einer geschickt eingesetz¬ 
ten RAM-Disk treibt die Festplatte den 
PCW zu ganz beachtlichen Leistungen. 

Insgesamt bleiben lediglich zwei Wün¬ 
sche offen: 

1. Man würde gern die neue Loco- 
Script-Version 2.16 auf diesem Fest¬ 
plattensystem einsetzen können, um im 
Verbund mit einem externen Drucker 
die Textverarbeitung weiter verbessern 
zu können. Offenbar stellt die Fa. Lo- 
comotive derzeit für den deutschen 
Markt keine harddiskfähige Version 
ihrer neueren Textverarbeitung zur 
Verfügung. 

2. Vielleicht könnte dem System ein 
Programm beigegeben werden, wel¬ 
ches die nach häufigen Lösch- und 
Schreibvorgängen zu erwartende Zer¬ 
splitterung der Dateien auf der Platte 
zu korrigieren hilft, um so die mit fort¬ 
schreitender Plattenbelegung zu erwar¬ 
tende Verlangsamung der Zugriffe zu 
minimieren (“Disk Optimizer“). 

Dabei übersehen wir keinesfalls, daß 
andere Festplatten-Hersteller diese 
Wünsche bisher ebensowenig erfüllen 
können. 

Fazit: 

Mit Preisen von DM 1.398,— bis DM 
2.098,- für die diversen Festplatten¬ 
größen ist das System 2000 auf Grund 
der Weiterverwendbarkeit an anderen 
Rechnertypen ein sehr attraktiver Mas¬ 
senspeicher für den PCW. 

Angesichts der Unsicherheiten über die 
zukünftigen Standards bei den Rech¬ 
nern außerhalb der CP/M-Welt (Be¬ 
triebssysteme, Laufwerksformate) tut 
man eventuell gut daran, einen System- 
Umstieg gegenwärtig aufzuschieben. 
Das System 2000 kann in der Zwi¬ 
schenzeit dazu dienen, den PCW an 
den Leistungsbereich dieser Rechner- 
klassen heranzubringen. 

Vielleicht klingt es reichlich gönner¬ 
haft, aber dennoch: Der Firma Vortex 
ist zu bescheinigen, daß sie ein sehr ge¬ 
lungenes Produkt auf den Markt ge¬ 
bracht hat. 


(Dr. Klaus Stratemann/rs) 
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Für ruhige Stunden 

Backgammon auf dem Joyce 

Nachdem das Programm Backgammon in der Ausgabe 
8/88 für die CPCs vorgestellt wurde, kamen viele Anfra¬ 
gen von Joyce PCW-Besitzern, ob es eine Möglichkeit 
gibt, dieses auf Ihren Rechner umzuschreiben. Nicht 
um-, sondern neugeschrieben hat es unser Leser Ralf 
Thelen. 

Wenn Sie beide Teile eingegeben und gestartet haben, kön¬ 
nen Sie eine Spielanleitung abfragen. Sollten Sie diese nicht 
wünschen, kommen Sie durch Drücken der Taste “n“ in das 
Hauptprogramm und können mit dem Spiel beginnen. 

Berechnung der Züge 

Joyce berechnet seinen Zug nach folgendem Schema: Alle 
möglichen Züge werden probeweise ausgeführt und bewer¬ 
tet. Dabei werden für einen eigenen alleinstehenden Stein 10 
negative Punkte vergeben und für einen geschlagenen gegne¬ 
rischen Stein 9 positive Punkte. Der Zug mit der höchsten 
Punktzahl wird dann ausgeführt. Weitere Kriterien oder an¬ 
dere Punktzahlen sind möglich (z.B. wird Joyce bei 11 posi¬ 
tiven Punkten für einen geschlagenen gegnerischen Stein viel 
agressiver spielen), verlängern jedoch unter Umständen die 
Berechnungszeiten. 

Damit Sie beim Laden nicht immer wie unten beschrieben 
verfahren müssen, können Sie sich eine Datei mit dem Na¬ 
men BACKGAM.SUB erstellen. Nach dem Laden von 



RPED (Systemdiskette 1 Seite 2) legen Sic die Diskette mit 
dem Backgammon-Spiel ein, drücken [F3] und geben den 
Namen der Startdatei und “BASIC BGIN1T“ ein. Nun 
drücken Sie zweimal |EXIT] und kopieren BASIC.COM auf 
die Diskette. Jetzt können Sie unter CP/M einfach "BACK- 
GAM“ < ENTER > eingeben, und das Programm startet au¬ 
tomatisch. (Ralf Thelen/rs) 


Dieses Programm ist in Basic geschrieben. Da es auf Maschineumutinen curiick- 
g reift. salbe es vor dim Starten wie folgt abgespeichert werden: 

Das Siartprograinin mit SAVIVBGINIT BAS" nml 
das Hauptpragranun mit SAVE'BACKGAM.BAS" 

Spiiter kann es dann inner Basic mit RUN"BGINI7BAS~ < RETURN> und unter 
CP/M Plus mit A > BASIC BGINII < RETÜRN> gestand werden. 



< 7 > 

< 9 > 

< 19 > 


< 6 7 > 

< 5 4 > 

< 1 > 

< 2 4 > 

< 40 > 

< 16> 

< 85 > 
<11> 

< 18> 

< 5 3 > 
<85 > 

< 74 > 

< 9 7 > 

< 22 > 

< 38 > 

< 78 > 

< 2 > 

< 50 > 

< 67> 

< 2 1 > 

< 2 7 > 

< 29 > 

< 39 > 

< 77> 

< 13 > 

< 32 > 

< 9 6 > 

< 7 > 
<75> 

< 5 7 > 

< 2 3 > 

< 30 > 

< 32 > 

< 34> 

< 70 > 


10 ' EInscha1tmeldung 

20 PRINT CHR$(27)+"E" + CHR$ (27)*"H'" + CHR$(27) + "f"+CH 
R$(2 7) + "0" 

30 PRINT:PRINT:PRINT:PRINT:PRINT;PRINT:PRINT:PRINT 
:PRINT "B 1 t t e.. eine n.. M o m e n t.. G e 
d u 1 d. I " 

40 MEMORY &HF4FF 

50 RESTORE 260 

60 Codesta rt = &HF500 

70 Tabstart=&HF515 

80 FOR 1=0 TO 20 

90 REAO x:POKE Codestartti,x 

100 NEXT 1 

110 RESTORE 380 

120 READ Zeichencode 

130 IF Zeichencoden OR Ze i chencode > 2 55 THEN 960 

140 FOR 1=0 TO 7 

150 READ X:POKE Tabstart+I.x 

160 NEXT 1 

170 Charstart=Ze1chencode*8+&H8800+2'16 
160 H1ghaddr=INT(Charstart/256) 

190 Lowaddr=Charstart-Highaddr*256 

200 POKE &HF510,Lowaddr 

210 POKE &HF511,Highaddr 

220 CALL Codestart 

230 GOTO 120 

240 1 

250 ‘ Maschinencode 
260 DATA &H01,&H09,&HF5 
270 OATA &HCD,&H5A,&HFC 
280 OATA &HE9.&H00 
290 OATA &HC9 
300 OATA 8.H21 . &H15.8.HF5 
310 DATA &H01,&H08,&H00 
320 DATA &H11,&H00,&H00 
330 OATA &HED.&HB0 
340 DATA &HC9 
350 ' 

360 ' Daten für Zeichen 

370 ' Asci1-code.8* Reihen-Bytes 

380 OATA 255.24,24,24.24,36.36.36,36 


< 58 > 

390 

DATA 

< 11 > 

400 

DATA 

< 72 > 

410 

DATA 

< 81 > 

420 

DATA 

< 92 > 

430 

DATA 

< 8 > 

440 

DATA 

< 2 3 > 

450 

DATA 

< 5 7 > 

460 

DATA 

< 2 6 > 

470 

DATA 

< 34 > 

480 

DATA 

< 13> 

490 

DATA 

< 2 4 > 

500 

DATA 

< 5 8 > 

510 

DATA 

< 4 6 > 

520 

DATA 

< 9 > 

530 

DATA 

< 80 > 

540 

DATA 

< 2 7 > 

550 

DATA 

< 61> 

560 

DATA 

< 9 3 > 

570 

DATA 

< 67 > 

580 

DATA 

< 78 > 

590 

DATA 

< 78 > 

600 

DATA 

< 89 > 

610 

DATA 

< 48 > 

620 

DATA 

< 20 > 

630 

DATA 

< 3 7 > 

640 

DATA 

< 30 > 

650 

DATA 

< 5 3 > 

660 

DATA 

< 46 > 

670 

DATA 

< 31 > 

680 

DATA 

< 28 > 

690 

DATA 

< 12 > 

700 

DATA 

< 3 7 > 

710 

DATA 

< 83 > 

720 

DATA 

< 76> 

730 

DATA 

< 78 > 

740 

DATA 

< 14 > 

750 

DATA 

< 18> 

760 

DATA 

< 5 1 > 

770 

DATA 

< 12 > 

780 

DATA 

< 9 6 > 

790 

DATA 


254,66,66,66,66,129,129,129,129 
253,1,1,1,1,2,2,2,2 
252,128,128,128,128,64,64,64,64 

251.32.32.32.32.16.16.16.16 
250,4,4,4.4,8,8,8.8 

249.17.17.17.17.34.34.34.34 
248,136,136,136,136,68,68,68,68 
247,68,68,68,6B,136,136,136,136 

246.34.34.34.34.17.17.17.17 
245,16,16,16,16,32,32,32,32 
244,8,8,8,8,4,4,4,4 
243,64,64,64,64,128,128,128,128 
242,2,2,2,2,1,1,1,1 

35.255.255.255.255.255.255.255.255 
241,24,24,24,24,60,60,60,60 

240.126.126.126.126.255.255.255.255 

239.17.17.17.17.35.35.35.35 
238,136,136,136,136,196,196,196,196 
237,71,71,71,71,143,143.143,143 
236.226,226,226,226.241,241,241.241 
235,31,31,31,31,63,63,63,63 
234,248,248,248,248,252.252,252,252 

233.127.127.127.127.255.255.255.255 

232.254.254.254.254.255.255.255.255 
231,129,129,129,129,66,66,66,66 

230.36.36.36.36.24.24.24.24 
229,255,255,255,255,127,127,127,127 
228,255,255,255,255,254,254,254,254 
227,63,63,63,63,31,31,31,31 
226,252,252,252,252,248,248.248,248 
225,143,143,143,143,71,71,71,71 
224,241,241,241,241,226,226,226,226 

223.35.35.35.35.17.17.17.17 
222.196,196,196,196,136,136,136,136 
221,255,255,255,255,126,126,126,126 

220.60.60.60.60.24.24.24.24 
219,170,85,170,85,170,85,170,85 
218,0,127,112,96,96,99,99,99 
217,0,255,0,0,0,255,0,0 
216,0,254,14,6,6.198,198,198 
215,99,99,99,96,96,112,127,0 
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Nichts für Langeweiler 


Auf dem Computer 
eröffnet sich eine neue 
Dimension des Spielens. 

Begleiten Sie JOYSTICK 
in die abenteuerlichen 
und lustigen Welten des 
Computerspiels. 

Ob Sie nun Geister 
durch ein Labyrinth 
jagen oder lieber die 
Weiten des Weltraums 
unsicher machen... 

Ob Sie garstige Magier 
bekämpfen oder lieber 
einen Fußballverein 
managen.... 

JOYSTICK, das Magazin 
für Computerspieler: 
Reviews, Tips, Stories, 
Berichte und 
Lösungshilfen. 

Eben alles, was 
Computern Spaß macht! 
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< 6 6 > 
< 60 > 

< 36 > 

< 60 > 

< 32 > 

< 2 7 > 

< 1 7 > 

< 10 > 

< 1 7 > 

< 9 3 > 

< 9 4 > 

< 9 6 > 

< 4 4 > 
<49 > 

< 83 > 

< 36 > 

< 8 > 

< 40 > 

< 2 3 > 

< 1 > 

< 9 8 > 
<22 > 

< 13> 

< 51 > 

< 64 > 

< 40 > 

< 49 > 

< 2 6 > 

< 4 7 > 

< 82 > 

< 16 > 

< 50 > 

< 8 2 > 

< 70 > 

< 59 > 

< 76 > 

< 6 7 > 


< 6 4 > 

< 38 > 

< 7 > 

< 6 3 > 

< 2 1 > 
< 18> 
< 11 > 
< 60 > 

< 86 > 

< 1 > 

< 6 1 > 

< 2 3 > 

< 55 > 

< 16 > 

< 39 > 

< 57> 

< 72 > 

< 32 > 

< 36 > 

<83 > 

< 62 > 

< 60 > 

< 9 8 > 
<85 > 

< 50 > 

< 2 8 > 

< 2 5 > 

< 9 2 > 

< 61 > 

< 42 > 
<49> 


800 DATA 214,0,0,255,0,0,0,255,0 

810 DATA 213,198,198,198,6,6,14,254,0 

820 DATA 212,0,127,112,96,96,99,99,99 

830 DATA 211,0,255,0,0,0,255,255,255 

840 DATA 210,0,254,14,6,6,198,198,198 

850 DATA 209,99,99,99,96,96,112,127,0 

860 DATA 208,255,255,255,0,0,0,255,0 

870 DATA 207,198,198,198,6,6,14,254,0 

880 DATA 206,0,0,0,0,0,0.0.60 

890 DATA 205,60,0,0,0,0,0,0,0 

900 DATA 204,0,0,0,60,60.0,0,0 

910 DATA 203,0,24,24,24,24,126,60,24 

920 DATA 202,255,231.231,231,231,129,195,231 

930 DATA 201,231,195,129,231,231,231,231,255 

940 DATA -1 

950 ' 

960 cls$= CHR$ (2 7)+"H"+CHR$(27) + " E ":PRINT cls$ 

970 ' Splelanleitung 

980 PRINT 11 .... BACKGAMMON’ 1 
990 PRINT:PRINT " by. Ralf Thelen 11 

1000. PRINT 1 ’... 5307 Wachtberg" 

1010 PRINT:PRINT:PRINT:PR I NT"Brauchen Sie eine Spi 
e 1 an 1 e 1 tung ? 11 

1020 PRINT:PRINT". < y / n)" 

1030 a$=UPPER$(INKEY$) :WHI LE a$="' 1 : a$ = UPPER$ (INK 
EY$). : WEND 

1040 IF a$="Y" THEN 1070 
1050 IF a$= " N" THEN 1620 
1060 GOTO 1030 
1070 PRINT c1s$ 

1080 PRINT "Backgammon - Spielregeln" 

1090. PR INT:PR INT "Gespielt wird auf einem Brett m 
1t 24 Feldern" 

1100.. . PRINT "Davon sind 12 oben und 12 unten ang 
eordnet" 

1110.. . PRINT "Jeder Spieler hat 15 Steine" 

1120 PRINT"0urchnummeriert würde das Spielfeld etw 
a so aussehen :" 

1130 PRINT 
1140 PRINT" 


. 12 . 
02 . . 


11 . 
01 " 


10 . . 09. . 08. . 07. . 06. 


15. . 16. . 17. 


18 . 


19 . 


zieht von. 1 nach 2 


05.. 04.. 03. 

1150 PRINT 

1160 PRINT 11 ... . 13. . 14. 

. 20.. 21.. 22.. 23.. 24" 

1170 PRINT:PRINT" Der Computl 
4" 

1180.. PRINT" Sie 2lehen von. 24 nach 1" 

1190 PRINT" Das erste Ziel ist seine Steine in die 
letzten 6 Felder zu bringen" 

1200 PRINT" Für SIE sind das die Felder. 1 bis 6" 
1210 PRINT" Für den COMPUTER die Felder 19 bis 24" 
1220 G0SUB 1580 
1230 PRINT cls$ 

1240 PRINT "Gespielt wird mit zwei Würfeln" 

1250 PRINT "Der Computer stellt Sie am rechten Ran 
d dar !" 

1260 PRINT "Die Züge müßen entsprechend der Augenz 
ahl ausgeführt werden!" 

1270 PRINT -"Dabei kann man nur auf Felder setzen d 
1e entweder schon von eigenen Steinen" 

1280 PRINT "besetzt, frei oder von maximal einem g 
egnerisehen Stein besetzt 3lnd" 

1290 PRINT "Im letzten Fall wird der gegnerische S 
teln geschlagen, und muß beim nächsten" 

1300 PRINT "mal wieder eingesetzt werden" 

1310 PRINT "O.h. er wird entsprechend der Augenzah 
1 wieder Ins jeweilige Ausgangsfeld" 

1320 PRINT "gesetzt. (Für SIE Felder 19-24)" 

1330 PRINT "Sind die Felder schon besetzt, so kann 
der Zug nicht ausgeführt werden und" 

1340 PRINT "der Gegner Ist an der Reihe !" 

1350 GOSUB 1580 

1360 PRINT "Werden zwei gleiche Zahlen gewürfelt ( 
Pasch), so kann man die entsprechende" 

1370 PRINT "Zahl. vier, mal ziehen !" 

1380 PRINT:PRINT "Ist es einem Spieler gelungen al 
le 15 Steine in die letzten 6 Felder zu' 1 
1390 PRINT”bringen , so kann er mit dem rauswürfeln 
beg Innen! 11 

1400 PRINT"Dabei muß er die richtige Augenzahl wer 
f e n . " 

1410 PRINT”Der Stein auf diesem Feld wird dann aus 
dem Spiel genommen." 

1420 PRINT”S1eger Ist wer als erster keine Steine 
mehr hat !“ 

1430 GOSUB 1580 
1440 PRINT c1S$ 

1450 PRINT ” BEDIENUNG" 

1460 PRINT” Setzen sie mit Hilfe der Cursortasten 
den Pfeil unter den Stein den Sie” 

1470 PRINT" nehmen wollen.“ 

1480 PRINT" Druecken Sie RETURN. -> Der Pfeil wl 

rd Invertiert !" 

1490 PRINT" Setzen Sie den Pfeil unter das Feld au 
f welches der Stein gesetzt werden soll" 

1500 PRINT" Druecken Sie Return. -> Der Zug wird 

ausgefuehrt" 
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< 4 9 > 1510 PRINT" Koennen Sie einen Zug nicht ausfuehren 

so Druechen Sie. > n < " 

< 7 2 > 1520 PRINT" Die entsprechende Zahl wird dann geloe 

seht !" 

< 7 7 > 1530 PRINT" Belm raus Oder relnwuerfeln gehen sie 

auf das entsprechende Feld" 

<91 > 1540 PRINT" und druecken zweimal RETURN. 

< 17 > 1550 PRINT : PRINT ”. V 1 e 1 . S p a s s " 

< 39 > 1560 GOSUB 1580 

< 6 > 1570 GOTO 960 

< 83 > 1580 PRINT : PRINT"We1ter mit. > Space <. Taste !" 

< 26 > 1590 a$ = INKEY$:WHILE a$<>" " : a$ = INKEY$ : WEND 

<17 > 1600 PRINT cls$ 

< 93 > 1610 RETURN 

< 63 > 1620 RUN"bac kgam 


< 49 > 10 DEFINT a-z 

< 2 7 > 20 OPTION BASE 1 

< 8 2 > 30 DIM zahl< 4):DIM flagz(4);DIM flag(4):DIM bew(24 

):DIM walt(24):DIM wneu(24):DIM swa1t(24):DIM swne 
u (24) 

< 74 > 40 DEF FNloc$(u,v)=CHR$(27)+"Y"+CHR$(32+u)+CHR$(32 

+ v ) 

< 79 > 50 DEF FNr2$=CHR$(27)+"C"+CHR$(27)+"C" 

< 5 5 > 60 DEF FNraussw$( raussw) =CHR$ (27 ) + "X''+CHR$( 31 + 2*ra 

ussw)+CHR$(119)+CHR$(35)+CHR$(34) 

< 31> 70 DEF FNrausw$(rausw)=CHR$(27)+"X"+CHR$(63-2*raus 

w)+CHR$(119)+CMR$(35)+CHR$(34) 

< 2 3 > 80 DEF FNmat$<1 , k . pO ) =CHR,$ ( 2 7 ) + " X "+CHR$ ( 32 + 2* k+( po 

*(30-4*k)))+CHR$(117-7*1+(po*<-91+7*(1+(i-12)))))+ 
CHR$(34)+CHR$(39) 

< 10 > 90 zaeh1 = 10:weg = l:zu = 0:mal=0:posi=4:po=0:rausw = 0: r 

aussw =0 

< 2 2 > 100 zahl1$ = CHR$(27) + "X" + CHR$(44)+CHR$(119 )+CHR$< 34 

)+CHR$(34) 

< 88 > 110 zahl2$=CHR$(27) + "X" + CHR$(50)+CHR$(119)+CHR$<35 

>+CHR$< 34) 

< 22 > 120. meldl$ = CHR$(27)+"X"+CHR$(63)+CHR$(32)+CHR$(32 

)+CHR$(120) 

< 8 > 130. meld2$=CHR$(27)+"X"+CHR$(32)+CHR$(32)+CHR$(32 

>+CHR$(120) 

< 9 6 > 140 c)s$=CHR$(27)+"E"+CHR$(27)+”H" 

< 60 > 150 PRINT cls$ + CHR$(27) + '’0"+CHR$(27) + "f" 

< 30 > 160 ‘ 

< 3 2 > 170 ‘ Umrandung zeichnen 

< 4 9 > 180 PRINT STRING$(86,CHR$(219)) 

< 95 > 190 FOR 1 = 1 TO 28 :PRINT CHR$(219 ) ;STRINGS(84 , " " ) 

;CHR$(219):NEXT 1 

<34> 200 PRINT STR ING$(86,CHR${219 ) ) 

<21 > 210 ' 

< 79 > 220 'Felder zeichnen (unten) 

< 2 6 > 230 FOR 1 = 1 TO 12 STEP 2 

< 31> 240 PRINT CHR$(27) + "X" + CHR$(50)+CHR$(33+(1-1)* 7)+C 

HR$(43)+CHR$(39); 

< 8 7 > 250 GOSUB 770:GOSUB 810:GOSUB 840:G0SUB 870:GOSUB 

900:GOSUB 930 

< 5 6 > 260 PRINT CHR$(27) + “X"+CHR$(50)+CHR$(33 + (1 )* 7)+CHR 

$(43)+CHR$(39); 

< 3 5 > 270 GOSUB 970: GOSUB 1010:GOSUB 1040:GOSUB 1070:GO 

SUB 1100:GOSUB 1130 

< 3 > 280 NEXT 1 

< 7 9 > 290 'Felder zeichnen (oben) 

< 56 > 300 FOR 1=13 TO 24 STEP 2 

< 30 > 310 PRINT CHR$(27) + "X" + CHR$(34)+CHR$(33+(1-13)*7) + 

CHR$(43)+CHR$(39); 

< 42 > 320 GOSUB 1370:GOSUB 1410:G0SUB 1440:G0SUB 1470:G0 

SUB 1500:GOSUB 1530 

< 88 > 330 PRINT CHRS(27) + "X" + CHR$(34)+CHR$(33+(1 -12)* 7) + 

CHR$(43)+CHR$(39 ) ; 

< 6 7 > 340 GOSUB 1170:GOSUB 1210:G0SUB 1240:GOSUB 12?0:GO 

SUB 1300:GOSUB 1330 

< 9 7 > 350 NEXT 1 

< 32 > 360 1 

< 34 > 370 ' Grundposition festlegen ! 

< 50 > 380 wneu(24)=2 : wneu(13) = 5 : wneu(8)=3 : wneu(6) = 

5 : GOSUB 2020 

<81> 390 swneu(l)=2 : swneu(12)=5 : swneu(17)=3 : swneu 
(19 ) = 5 : GOSUB 2230 

< 2 1 > 400 ' 

< 4 3 > 410 'Zug Spieler ausführen 

< 73 > 420 GOTO 440 
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«Jetzt neu: 

BASIC-Compiler für CPC 464/664/6128 
Der Turbo-Antrieb für Ihre BASIC-Programme! 


Haben auch Sie sich schon immer ge¬ 
wünscht, daß Ihre selbstgeschriebenen 
BASIC-Programme schneller laufen? 

Mit dem BASIC-Compiler von DMV ist das 
nun kein Problem mehr, denn 


- der Compiler hat den vollen Sprachumfang des 
BASIC 1.1 (CPC664/6128) 

- das compilierte Programm ist auf jedem CPC 
lauffähig 

- unterstützt Integer- und Fließkomma- 
Arithmetik 

- kompatibel zu Vortex-Peripherie incl. Nutzen 
der RAM-Disk 

- Programme, die spezielle BASIC l.l.-Befehle 
beinhalten, sind auch auf dem CPC464 lauffä¬ 
hig (außer FILL und MASK) 

- der Compiler arbeitet unter CF^M, das heißt, 
alle CFfM-Dienstprogramme können genutzt 
werden. 

- bis 17 KB Quellcode können problemlos compi- 
liert werden 

- einzelne Programmteile können ebenfalls com- 
piliert werden (z.B. wichtig bei Nachladepro¬ 
grammen) 

- die ausführliche deutsche Bedienungs¬ 
anleitung macht Sie auf einfache Weise mit 
dem Umgang des Compilers vertraut. 

- viele Beispielprogramme veranschaulichen die 
Arbeitsweise des Compilers und zeigen die Ge¬ 
schwindigkeitsvorteile auf. 


- das Programm ist in 100% Maschinencode ge¬ 
schrieben 



Der BASIC-Compiler ist nur auf 3“-Diskette 
erhältlich. 


Best.-Nr.: 209 


69,- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen gilt folgendes: 
Inland: Ausland: 

Einzelpreis 69,- DM Einzelpreis 69,- DM 

zzgl. Versandkosten 3,-DM zzgl, Versandkosten 5,-DM 

Endpreis 72,- DM Endpreis 74,- DM 


Bitte benutzen Sie die Bestellkarte 

DMV-Verlag 

Postfach 250 ■ 3440 Eschwege 
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DurchbVick 
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Public Domain 

pCput bietet Ihnen He« «JgU—^ 

- irÄert, alles, «* S ^ ^ ^ «einer 
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- und ^ 
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Ve rtreiber 

H ändlern löschen. Ei E \nschalt- 

- Dateien wM® langweilte t 
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meidnngen Q £ SC h\|\iege 
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< 64 > 430 PRINT meld1$:PRINT:PRINT me 1d2$:PRINT:GOSUB 15 

70:GOSUB 3650 

< 4 > 440 PRINT meld2$; :PRINT:PRINT me 1d1$; :PR INT 

< 2> 450 PRINT. "... W ü r f e 1 n.. m 1 t.. Taste. 

... > w < " ; 

< 71> 460 pos$ = UPPER$(INKEY$) : IF pos$="" GOTO 460 

< 82 > 470 IF pos$="W" THEN GOSUB 1570 ELSE GOTO 460 

< 9 0 > 460 IF po=l THEN 610 

< 32 > 490 PRINT me 1d1$PRINT:po = 0 

< 32 > 500 IF ZU = 0 THEN PRINT FNl0C$(32,p0s1 );"""; ELSE P 

RINT FN1oc$(32,pos1);CHR$(201>; 

< 62 > 510 pos$=UPPER$(INKEYS):IF pos$="" GOTO 510 

< 71> 520 IF pos$=CHR$(6) THEN posi=posi + 7 

< 5 3 > 530 IF pO3$ = 0HR$(1) THEN pos1=pos1-7 

< 38 > 540 IF pos$ = CHR$(31) THEN 610 

<18 > 550 IF po 8 $ = C H R $ (13) THEN 2540 

< 78> 560 IF pOS$="N" THEN 3210 

< 98 > 570 IF pos1<4 THEN posi=4:GOTO 610 

< 66 > 580 IF post >81 THEN post=81 

< 5 4 > 590 PRINT 

< 37> 600 GOTO 500 

< 39 > 610 PRINT 

<14 > 620 PRINT me 1d2$; :po=l 

< 54 > 630 IF zu = 0 THEN PRINT FN1oc$(1.poai );CHR$(203); E 

LSE PRINT FNloc$(1,post );CHR$(202) ; 

< 38 > 640 pos$=UPPER$(INKEY$) :IF pos$="" GOTO 640 

< 78 > 650 IF pos$ = CHR$(6) THEN post=pOst + 7 

< 60 > 660 IF pos$=CHR$(1) THEN post=posi-7 

< 68 > 670 IF p03$=CHR$(30) THEN PRINT:GOTO 490 

< 25 > 680 IF pos$=CHR$(13) THEN 2540 

< 85 > 690 IF pos$="N" THEN 3210 

< 39 > 700 IF post <4 THEN pos1=4:PRINT:GOTO 490 

< 54 > 710 IF posi > 81 THEN pOs1=81 

< 42 > 720 PRINT 

< 8 7 > 730 GOTO 630 

< 32 > 740 ' 

< 34 > 750 ' UNTERPROGRAMME 

< 36> 760 ' 

< 38 > 770 Schwarzes Feld ohne Steine zeichnen (v.unten 

) 

< 6 7 > 780 PRINT ". . "+CHRS(255)". . " 

< 92 > 790 PRINT".. “+CHR$(254)". . " 

< 74 > 800 RETURN 

< 2 0 > 810 PRINT ". "+CHR$(253)+CHR$(255)+CHR$(252)". " 

< 7 5 > 820 PRINT ". "+CHR$(250)+CHR$(254)+CHRS(251)". " 

< 80 > 830 RETURN 

< 22 > 840 PRINT". "+CHR$(2 49) + " "+CHRS(248)". " 

< 7 > 850 PRINT". "+CHRS(247) + " "+CHRS(246)”. " 

< 86 > 860 RETURN 

< 3 6 > 870 PRINT " "+CHR$(253)+CHR$(245)+" "+CHRS(244)+CH 

R$(252)" " 

< 3 4 > 880 PRINT" "+CHRS(250)+ CHRS<243) + " "+CHRS< 242 )+CHR 

$(251)" " 

< 92 > 890 RETURN 

<17 > 900 PRINT" "+CHR$(249)+". . " + CHR$(248)" " 

< 2 > 910 PRINT" "+CHR$(247)+". . "+CHR$(246)" " 

< 79 > 920 RETURN 

<12 > 930 PRINT CHR$(253)+CHR$(245)+".. "+CHRS(244)+CHRS 

(252) 

< 96 > 940 PRINT CHR$(250)+CHR$(243) + ". . "+CHR$(242)+CHR$ 

(251) ; 

< 85 > 950 RETURN 

< 38 > 960 ' 

<40> 970 ' Weißes Feld ohne Steine zeichnen (v.unten) 

< 69 > 980 PRINT ".. " + CHRS < 255)". . " 

< 9 4 > 990 PRINT".. "+CHRS( 254)". . " 

< 78 > 1000 RETURN 

< 20 > 1010 PRINT ". " + CHRS(253)+CHR$(241)+CHR$( 252 )". " 

< 71 > 1020 PRINT " . " + CHRS(250)+CHRS(240)+CHR$(251)" . 11 

< 8 7 > 1030 RETURN 

< 98 > 1040 PRINT". "+CHRS(239 ) + "*"+CHRS(238)". " 

< 80 > 1050 PRINT". "+CHR$(237) + "#"+CHR$(236)". " 

< 96 > 1060 RETURN 

< 3 7 > 1070 PRINT " " + CHR$(253)+CHRS(235) + "»"+CHR$(234)+C 

HR$(252) - ' " 

< 9 4 > 1080 PRINT" " + CHRS(250)+CHR$(233) + "*"+CHRS( 232)+CH 

R$(251)" " 

< 6 > 1090 RETURN 

< 5 > 1100 PRINT" "+CHR$(239 ) + "•#<*"+CHR$( 238) " " 

< 8 6 > 1110 PRINT" "+CHR$(237) + "##«“+CHRS(236) " " 

< B6 > 1120 RETURN 

<13 > 1130 PRINT CHR$( 253)+CHR$(235) + "#*»" + CHRS(234)+CHR 
$(252 ) 

< 50 > 1140 PRINT CHRS(250)+CHRS(233)+"##*"+CHR$(232)+CHR 

S ( 2 51) ; 

< 95 > 1150 RETURN 

< 4 > 1160 ' 

< 7 > 1170 ' Schwarzes Feld ohne Steine zeichnen (v.oben 

) 

< 91> 1180 PRINT CHR$(244)+CHR$(252) + ". . " + CHRS(253)+CHR 

$(245) 

< 79 > 1190 PRINT CHR$( 242)+CHRS(251) + ". . " + CHRS(250)+CHR 

$(243) 

< 82 > 1200 RETURN 

< 55 > 1210 PRINT " "+CHRS(248) + ". . "+CHR$(249)+" " 

< 33 > 1220 PRINT " "+CHR$(246) + ". . "+CHRS(24 7) + " " 

< 91> 1230 RETURN 
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< 76 > 

< 1 > 

< 72 > 

< 50 > 
< 10 > 

< 2 6 > 

< 5 7 > 

< 9 0 > 

< 6 7 > 

< 12 > 
< 0> 
< 8 > 
< 11 > 
< 7 1 > 


1240 PRINT ' 
HR$(245)+" ’ 
1250 PRINT • 
HR$(243)+" ' 
1260 RETURN 
1270 PRINT ' 
1280 PRINT ' 
1290 RETURN 
1300 PRINT ' 
1310 PRINT 1 
1320 RETURN 
1330 PRINT ' 
1340 PRINT ' 
1350 RETURN 
1360 ' 

1370 


"+CHR$(244)+CHR$(252)+" "+CHR$(253)+C 
"+CHR$(242)+CHR$(251)+” "+CHR$< 250)+C 


”+CHR$(248)+" "+CHR$(249)+' 
"+CHR$(246)+" "+CHR$(247)+' 


"+CHR$(244)+CHR$(231)+CHR$<245)+". 
"+CHR$(242)+CHR$(230)+CHR$(243)+". 


"+CHR$(231)+".. 
M +CHR$(230)+".. 


Weißes Feld ohne Steine zeichnen (v.oben) 
1380 PRINT CHR$(244)+CHR$(229)+"**#"+CHR$(228)+CHR 
$(245) 

< 75 > 1390 PRINT CHR$(242)+CHR$(227) + "•##" + CHR$( 226)+CHR 
$(243) 


< 86 > 

1400 

RETURN 


< 1 3 > 

1410 

PRINT" 

"+CHR$(225)+ 

< 9 4 > 

1420 

PRINT" 

"+CHR$(223)+ 

< 9 5 > 

1430 

RETURN 


< 61 > 

1440 

PRINT ' 

"+CHR$(244) 


HR$(245)+" ' 


< 4 1 > 

1450 

PRINT 1 

"+CHR$(242) 


HR$(243)+" ' 


< 5 > 

1460 

RETURN 


< 90 > 

1470 

PRINT ' 

. "+CHR$(225 

< 68 > 

1480 

PRINT 

. "+CHR$(223 

< 14> 

1490 

RETURN 


< 5 1 > 

1500 

PRINT 

. "+CHR$(244 

< 82 > 

1510 

PRINT 

. "+CHR$(242 

< 9 4 > 

1520 

RETURN 


<25 > 

1530 

PRINT" 

. "+CHR$(231 


<89 > 

< 4 > 

< 12 > 
< 28 > 
< 6 8 > 
< 82 > 

< 15 > 

< 15> 

< 2 1 > 

< 63 > 

< 77> 

< 58 > 

< 76 > 

< 9 0 > 
<9 3 > 

< 13 > 

< 85 > 

< 9 5 > 

< 2 6 > 
< 6 > 

< 5 > 

< 31 > 

< 7 > 

< 1 4 > 

< 5 2 > 

< 22 > 

< 9 4 > 

< 75 > 

< 78 > 

< 4 > 

< 9 1 > 

< 65 > 

< 1 3 > 

< 42 > 

< 45 > 

< 22 > 
< 2 > 
< 62 > 

< 43 > 

< 28 > 

< 9 > 

< 1 7 > 

< 48 > 
<22 > 

< 6 4 > 

< 24 > 

< 54 > 


< 8 7 > 

< 90 > 

< 2 7 > 

< 18 > 

< 35 > 

< 39 > 

< 19 > 

< 30 > 

< 1 6 > 


"+CHR$(230)".. 


1540 PRINT ' 

1550 RETURN 
1560 1 

1570 'Würfeln und Würfel darstellen 

1580 zaehl=zaeh1+1 

1590 PRINT CHR$(7);:PRINT 

1600 IF zaehl<=10 THEN 1630 ELSE zaehl=0 

1610 zufal1=VAL(HEX$(PEEK(&HFBFB))) 

1620 RANDOMI ZE Zufall 
1630 zahl(1)=INT(6*RND)+1 
1640 zahl(2)=INT(6*RND)+1 

1650 IF zahl(l)=zahl(2) THEN pasch=4 ELSE pasch=2 
1660 IF pasch=4 THEN zah1(3)=zah1(1):zah1(4)=zah1( 
1) 

1670 PRINT zahl 1$; 

1680 ON zahl(1) GOSUB 1720,1750,1780,1810,1840,187 
0 

1690 PRINT zah12$ ; 

1700 ON zahl(2) GOSUB 1720,1750,1780,1810,1840,187 


"+CHR$(206)+" 

"+CHR$(205)+" 


1710 RETURN 
1720 PRINT " 

1730 PRINT " 

1740 RETURN 

1750 PRINT CHR$(204)+". 

1760 PRINT "+CHR$(204) ; 

1770 RETURN 

1780 PRINT CHR$(204)+CHR$(206)+" 

1790 PRINT " "+CHR$(205)+CHR$(204)j 
1800 RETURN 

1810 PRINT CHR$(204)+" "+CHR$(204); 

1820 PRINT CHR$(204) + " " + CHR$(204 ) ; 

1830 RETURN 

1840 PRINT CHR$(204)+CHR$(206)+CHR$(204); 

1850 PRINT CHR$(204)+CHR$(205)+CHR$(204); 

1860 RETURN 

1870 PRINT CHR$(204)+CHR$(204)+CHR$(204); 

1880 PRINT CHR$(204)+CHR$(204)+CHR$(204); 

1890 RETURN 
1900 ' 

1910 'Stein ( sw ) zeichnen 

1920 PRINT FNr2$+CHR$(218)+CHR$(217)+CHR$(216) 

1930 PRINT FN r 2$ + CHR$(215)+CHR$(214)+CHR$(213) 

1940 RETURN 
1950 ' 

1960 'Stein ( w ) zeichnen 

1970 PRINT FNr2$+CHR$(212)+CHR$(211)+CHR$(210) 

1980 PRINT FNr2$+CHR$(209)+CHR$(208)+CHR$(207) 

1990 RETURN 

2000 PRINT CHR$(27) + " X"+CHR$(32)+CHR$(32)+CHR$(63) 
+CHR$(121):PRINT CHR$(27)+"E"+CHR$(27)+"H":PRINT C 
HR$(2 7) + "e":STOP 
2010 ' 

2020 ' Neue Position zeichnen für Spieler 
2030 FOR 1=24 TO 1 STEP -1 
2040 IF 1>12 THEN poruf=l ELSE poruf=0 
2050 erg=wneu(1)-walt(1) 

2060 IF e rg = 0 THEN 2170 
2070 IF erg < 0 THEN 2120 
2080 FOR k=wa1t(1)+1 TO wneu<1) 

2090 PRINT FNmat$(1,k,poruf);IGOSUB 1960 
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zum Heft 21 89 

Oalabox ist der preiswerte Software-Service Ihrer Zeitschrift 
Databox enthält lautfähige Programme für Ihren Einsatz. 
Databox lohnt sich auf jeden Fall Monat für Monat 


Joyce PCW 8256/8512/9512 


1. Backgammon: 

Das beliebte Spiel nun auch für Ihren Computer. 


2. Pipeline: 

Der Basiclader, der Quelltext sowie das fertige Programm ste¬ 
hen Ihnen auf dieser Databox zur Verfügung. 


3. Bonusprogramm UT.COM: 

Eine Benutzeroberfläche für jeden, der mit dem normalen Direc¬ 
tory nicht zufrieden ist. 


4. Startdiskette: 

Drei weitere Dateien ermöglichen Ihnen die Erstellung einer uni¬ 
versellen Startdiskette. 


PC 1512/1640 und Kompatible 


1. Oh, Mutter: 

Helfen Sie einem Azubi, die Reifen am Auto zu befestigen, aber 
achten Sie darauf, daß sie richtig sitzen... 

2. Konto: 

Das Kontoführungsprogramm für zu Hause, damit für Sie nicht 
schon am 15. der Letzte ist... 

3. Ordnung mit zwei Batch-Dateien: 

Wie man mit zwei Batch-Dateien Ordnung in seine Programm¬ 
sammlung bekommt, zeigen Ihnen unsere Hilfs-Programme. 

4. Bonusprogramm: 

Seek And Destroy 

Sammeln Sie Diamanten im verlassenen Bergwerk, aber pas¬ 
sen Sie auf. daß Ihnen nicht ein Monster oder ein Stein auf den 
Kopf fällt... 


Das Databox Abo kostet: 

Als Diskelte für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 300,- DM 


DMV-Verlag 

Postfach 250 - 3440 Eschwege 

Bitte Bestellkarte benutzen 


Einzelbezugspreis für DATABOX: 

PCW - 3“-Disk PC - 5 1/4"-Disk. 


24,- DM (unverbindliche Prelsemplohlung) 

Wenn Sie über den DMV-Bestollservlce beslellan, 
gilt folgendes: 

Inland: Ausland: 

Einzelpreis 2*,- OM Einzelpreis 24,- DM 

zzgl. Versandkoslen 3,- DM zzgl. VeresndVoslen 3- OM 


Endprell 


27,- OM Endprols 


23-DM 



Im europäischen Ausland. 320,- DM 

Im außereuropäischen Ausland. 360,- DM 

Bitte benutzen Sie für Ihre Bestellung die 
Abo-Karte. 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zuzüg¬ 
lich der Nachnahmegebühr. 

(In das Ausland ist Nachnahme nicht mög¬ 
lich) 
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<97> 2100 NEXT K 
<13 > 2110 GOTO 2170 

<53) 2120 PRINT FNmat$(1,walt<1),poruf); 

<86> 2130 IF 1/2< >INT(1/2) AND 1 <13 THEN ON waltd) GOS 
UB 1180,1210,1240,1270,1300:GOTO 2170 

< 79 > 2140 IF 1/2<>INT(1/2) AND 1 >12 THEN ON waltd) GOS 

UB 930,900,870,840,810 :GOTO 2170 
<76> 2150 IF 1<13 THEN ON waltd) GOSUB 1380,1410,1440, 
1470,1500:GOTO 2170 

< 88 > 2160 ON walt(1) GOSUB 1130,1100,1070,1040,1010 

< 96 > 2170 NEXT 1 

< 69 > 2180 FOR 1 = 1 TO 24 
<42> 2190 walt(f)=wneu(1 ) 

<77> 2200 NEXT 1 

< 86 > 2210 RETURN 
<94> 2220 ' 

<36> 2230 PRINT CHR${7)j:’Neue Position zeichnen für Co 
mputer 


< 59 > 

< 25 > 

< 60 > 
<33 > 

< 9 0 > 

< 84 > 

< 9 7 > 

< 5 > 

< 70> 

< 39 > 
<42> 

< 7 1 > 

< 60 > 
< 8 > 

< 98 > 

< 7 > 

< 5 1 > 

< 36 > 

< 8 7 > 

< 2 > 

< 5 > 

< 6 6 > 
< 60 > 

< 3 > 

< 12 > 
< 69 > 
<92 > 


2240 FOR 1=1 TO 24 

2250 IF 1>12 THEN poruf=l ELSE poruf=0 
2260 erg=swneu (1 )-swal 1(1 ) 

2270 IF e rg = 0 THEN 2390 
2280 IF e rg < 0 THEN 2330 
2290 FOR k=3walt(1)+l TO swneu(l) 

2300 PRINT FNmat$(1,k,porufGOSUB 1910 
2310 NEXT k 
2320 GOTO 2390 

2330 PRINT FNmat$(1,swalt(1),poruf); 

2340 PRINT FNmat$(1 ,swa1t(1 J.poruf ); 

2350 IF 1/2<>INT(1/2 ) AND 1 <13 THEN ON swaltd) GO 
SUB 1180,1210,1240,1270,1300:GOTO 2390 
2360 IF 1/2<>INT(1/2) AND i>12 THEN ON swaltd) GO 
SUB 930,900,870,840,810 :GOTO 2390 

2370 IF 1<13 THEN ON swaltd) GOSUB 1380,1410,1440 
,1470,1500:GOTO 2390 

2380 ON swalt(l) GOSUB 1130,1100,1070,1040,1010 

2390 NEXT 1 

2400 FOR 1=1 TO 24 

2410 swaltd ) = swneu( 1 ) 

2420 NEXT 1 
2430 1 

2440 ' Weißer Stein raus eintragen 
2450 FOR 1=1 TO 24 

2460 IF swneu(1)>0 ANO wneu(1)=l THEN 2490 

2470 NEXT 1 

2480 RETURN 

2490 wraus=wraus+l 

2500 PRINT FNrauswJlwraus);:PRINT CHR$(212)+CHR$(2 
11)+CHR$(210);:PRINT CHR$(209)+CHR$(208)+CHR$(207) 


<85> 2510 walt(1)=walt(1)-l : wneu(1)=wneu(1)-1 

< 95 > 2520 RETURN 

< 4 > 2530 ‘ 

<67> 2540 'Zug Spieler eintragen 
<34> 2550 IF weg=l GOTO 2600 

< 85 > 2560 IF po=1 GOTO 2580 

<98> 2570 nzpos=<pos1+3)/7+12:wneu{nzpos)=wneu(nzpos)+1 
:GOTO 2630 

<32> 2580 nzpOs=13-((pos1+3)/7):wneu(nzpos)=wneu(nzpos) 
+ 1 

< 53 > 2590 GOTO 2630 

< 62 > 2600 IF po=1 GOTO 2620 

<30 7 2610 nwpos=(pos 1 +3)/7+12:wneu(nwpos)=wneu(nwpos )-1 

:GOTO 2630 

<55> 2620 nwpos=13-((posi+3)/7):wneu(nwpos)=wneu(nwpos) 

< 92 > 2630 SWAP zu,weg 

<84> 2640 ma1=ma1 +1:IF mal=2*pasch THEN mal=0 
<93> 2650 IF zu=0 THEN GOTO 2710 
<83> 2660 IF zu = 0 THEN GOSUB 2020:GOSUB 3450 
<23> 2670 IF mal=0 THEN 430 

< 64 > 2680 IF po = 0 GOTO 490 
<33> 2690 GOTO 620 

< 98 > 2700 ' 

< 2> 2710 ' Zug auf Gültigkeit prüfen 
<94 > 2720 endph = 0 

< 50 > 2730 FOR 1=24 TO 7 STEP -1 

< 8> 2740 endph = endph+wa11(1 ) 

< 3 > 2750 NEXT 1 

<29 > 2760 IF wraus>0 THEN 3550 
<39> 2770 IF nwpos-nzpos < 0 THEN 2930 

< 5 > 2780 IF nwpos-nzpos = 0 AND endph = 0 THEN 3040 
<26> 2790 IF nwpos-nzpos=0 THEN 2950 

< 59 > 2800 FOR 1 = 1 TO 24 

<13 > 2810 IF wneu(1)<0 AND swneu(1)>0 THEN 2940 

< 4 7 > 2820 IF wneu(1)< 0. THEN 2900 
<95> 2830 IF wneu(1)> 5. THEN 2910 

< 4 > 2840 IF wneu(1)>0 AND swneu(1)>l THEN 2920 

< 5 > 2850 NEXT 1 

< 73 > 2860 FOR 1 = 1 TO pasch 

< 8 > 2870 IF nwpos-nzpos = zahl(1 ) THEN zahl(1) = 0 :GOTO 2 

660 

<14 > 2880 NEXT 1 

< 22 > 2890 GOTO 2950 

<75> 2900 PRINT:PR I NT "Es liegt kein Stein mehr auf dem 
Ausgangsfeld !'';:GOTO 2980 
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< 19 > 2910 

Feld 

< 5 4 > 2920 

2960 

< 71> 2930 

2960 

< 66> 2940 

960 

< 55 > 2950 

< 3 > 2960 
<38 > 2970 

< 4 > 2980 
<1 9 > 2990 
< 1 7 > 3000 

< 32 > 3010 

< 1> 3020 

< 94 > 3030 

< 9 7 > 3040 

< 55 > 3050 

< 79 > 3060 

=wneu(nwpos)-l : GOTO 3090 

< 9 5 > 3070 NEXT i 

< 44 > 3080 PRINT: PRINT "Falsche Augenzahl !"; :GOTO 2980 
<18 > 3090 sieg=0 

<12> 3100 FOR i=l TO 6 : s1 eg=s1 eg+wneu (1) NEXT 1 

< 53 > 3110 IF slegOO THEN 2660 

<51> 3120 PRINT mal dl$;: PRINT:PRINT meld2$;: PRINT" SIE. 
haben, gewonnen. !!!"; 

< 80 > 3130 PRINT ".... Noch ein Spiel.. (J/N)": :INPUT e 

nt$ 

< 21> 3140 ent$=UPPER$<entj): IF ent$="j" THEN 10 

< 58 > 3150 PRINT CHR$(2 7 ) + "X" + CHR$( 32) +CHR$(32)+CHR$( 62) 

+CHR$(121) 

<16> 3160 PRINT CHR$(2 7 ) + " e" 

< 5 > 3170 PRINT CHR$(27)+"E"+CHR$(27)+"H" 

<53> 3180 PRINT "Auf Wiedersehen 

< 41> 3190 STOP 

< 89 > 3200 ' 

<72> 3210 'Zahl nicht setzbar 

< 50> 3220 FOR 1 = 1 TO pasch 

<89> 3230 IF zahl(1)<>0 THEN z ah1 x = zah 1 (1) : GOTO 3250 

< 90 > 3240 NEXT 1 

< 38 > 3250 FOR 1=24 TO 1 STEP -1 

<87> 3260 IF wraus >0 AND swneu(25-zahlx) < 2 THEN 3340 

< 4 > 3270 IF wrau s > 0 THEN 3320 

< 59 > 3280 IF end ph = 0 AND 1-zahlx = 0 AND wneu(zahlx) >0 T 

HEN 3340 

< 31> 3290 IF 1 -zah1 x = 0 THEN 3380 

< 61 > 3300 IF wneu (1)=0 THEN 3320 

<45> 3310 IF wneu ( i -zahl x )< 5 ANO swneu (1-zah1 x) <2. THE 
N 3340 

< 86 > 3320 NEXT 1 

< 72 > 3330 GOTO 3380 

<61> 3340 PRINT:PRINT "Die Zahl kann gesetzt werden 

< 9 > 3350 FOR 1 = 1 TO 2000:NEXT 1 
<71> 3360 IF po=0 THEN 490 

<10> 3370 GOTO 610 
<63> 3380 FOR 1=1 TO 4 

< 65 > 3390 IF zahl(1 ) < >0 THEN zahl(1)=0 : GOTO 3410 

< 82 > 3400 NEXT 1 

<81> 3410 PRINT CHR$(7);CHR$(7);:mal=mal+2:IF mal=2*pas 
ch THEN mal =0:GOTO 430 
<61> 3420 IF po=0 THEN 490 
<12 > 3430 GOTO 620 

< 6 > 3440 ' 

<87> 3450 'Schwarzer Stein raus eintragen 

< 70 > 3460 FOR 1=1 TO 24 

<71> 3470 IF swneu(1)=l AND wneu(1)>0 THEN 3500 

< 7 > 3480 NEXT 1 
<16 > 3490 RETURN 

< 3> 3500 swraus=swraus+1 

<107 3510 PRINT FNraussw$(swraus) ;:PRINT CHR$(218 )+CHR$ 
(217)+CHR$(218)PRINT CHR$ ( 21 5) +CHR$(214)+CHR$(21 
3) i 

< 40 > 3520 swaltd)=swalt(i )-1:swneu(1)=swneu(1)-1 

< 0> 3530 RETURN 

< 8 > 3540 ' 

<11> 3550 ' welpen Stein erst elnsetzen ! 

<20> 3560 IF nwpos-nzposOO THEN 3600 

< 7 1 > 3570 FOR 1 = 1 TO pasch 

< 5 1 > 3580 IF nwpos = 25-zah1 (1 ) AND swneu( nwpos)< 2 THEN z 

ahl(1)=0 : GOTO 3610 
<12 > 3590 NEXT 1 

< 71 > 3600 PRINT:PRINT"Erst Stein wieder elnsetzen !";:G 

OTO 2960 

< 9 > 3610 wneu(nwpos)=wneu(nwpos) + l:PRINT FNrauswS(wrau 

s);: PRINT ".. " ;: PRINT ".. "; 

<87> 3620 wraus=wraus-1 

< 77 > 3630 GOTO 2660 
<10> 3640 ' 

< 35 > 3650 bewal t = -10000: bewmal =0: f1aglz = 25:f1ag2z = 25: ' 

.. Zug Computer. - 

<10> 3660 FOR 1=1 TO 24:bew (1)=3wa1 t (1): NEXT 1 

< 78 > 3670 coendph=0 

< 36 > 3680 FOR 1 = 1 TO 18 

< 96 > 3690 coendph = coendph+swalt(1 ) 
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PRINT:PRINT "Nicht mehr als 5 Steine auf ein 
1 egen !"; :GOTO 2960 

PRINT:PRINT "Das Ist. mein. Feld )";:G0T0 

PR INT:PRINT "Nicht Rückwärts ziehen !";:GOTO 

PRINT:PRINT "Das Ist. mein. Stein";:GOTO 2 

PRfNT:PRINT "Falsche Augenzahl !";:GOTO 2960 

wneu(nzpos)=wneu(nzpos )-1 

wneu(nwpos)=wneu(nwpos )+1 

FOR 1=1 TO 2000 

NEXT 1 

PRINT:mal=mal-2 
IF po=0 GOTO 490 
GOTO 620 

Endphase für Spieler 
FOR 1=1 TO pasch 

IF nwpos=zah1(1) THEN zahl<1)=0 : wneu(nwpos) 
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< 88> 3700 NEXT 1 

<14 > 3710 IF sw raus >0 THEN 3950 

< 38 > 3720 IF coendph = 0 THEN 4250 

< 9 3 > 3730 IF pasch = 4 THEN 4370 

< 64 > 3740 IF zahl(1)=0 AND zahl(2)=0 THEN RETURN 

< 69 > 3750 IF zahl ( 1 ) = 0 OR zahl(2)=0 THEN 4670 

< 66 > 3760 FOR 1=1 TO 24-zahltl) 

< 63 > 3770 IF bew(1 ) = 0 OR bew(1+zah1(1>) = 5 OR wnou(1 + zah 

1 (1))>1 THEN 3870 

< 52 > 3780 bew(1) = bew(1)-1 : bew(1+zahl(1))=bew(1+zahl(1 

)) + l 

< 45 > 3790.. FOR J = 1 TO 24-zahl(2) 

< 15 > 3800 IF bew(j)=0 OR bew(j+zah1(2))=5 OR wneu(j+zah 

1(2 ) ) >1 THEN 3840 

< 8 7 > 3810.. bew ( j ) = bew ( J )-1 : bew(j+zah1(2))=bew(j+zahl 

( 2 > ) + 1 

< 20 > 3820 GOSU8 4110 

< 82 > 3830.. bew(j)=bew(j) + 1 : bew(j+zahl(2))=bew(j+zah1 

( 2 1 ) -1 

< 14 > 3840 NEXT J 

< 46 > 3850 IF f1ag2z=25 THEN GOSU8 4110 

<17 > 3860 bew(1)=bew( 1 ) +1 : bew(1+zah1(1)) = bew(1+zah1(1 

n-i 

< 12 > 3870 NEXT 1 

<93> 3880 bewmal=bewma1+1 

< 59 > 3890 IF bewma1=2 THEN 3910 

< 40 > 3900 SWAP zahl (1) .zahl (2) : GOTO 3750 

< 87 > 3910 IF f1aglz < 2 5 THEN swneu(f1aglw)=swneu(f1aglw) 

-1:swneu(flaglz)=swneu(flaglz)+l:GOSUB 2230 
<30> 3920 IF f1ag2z<25 THEN swneu(flag2w) = swneu{f1ag2w> 
-1:swneu(flag2z)=swneu(flag2z)+l:GOSUB 2230 

< 8 > 3930 RETURN 

< 16 > 3940 ‘ 

<61 > 3950 'sw-Ste1 ne wieder einsetzen 

< 4 > 3960 FOR 1 = 1 TO 6 

< 89 > 3970 FOR j = l TO pasch 

< 3 7 > 3980 IF wneu(1 ) = 1 AND zahl(j)=i THEN zahl(j) = 0 : G 

OTO 4070 

< 31> 3990 NEXT J 

< 75 > 4000 NEXT 1 

< 71> 4010 FOR 1 = 1 TO 6 

< 5 7 > 4020 FOR j = l TO pasch 

< 49 > 4030 IF swneu(1 )< 5 ANO wneu<1)=0 AND zahl(J) = 1 THE 

N ZAH L (J)=0 : GOTO 4070 

< 98 > 4040 NEXT j 

< 90 > 4050 NEXT 1 

< 6 7 > 4060 PRINT CHR$(7)+CHR$(7 ) ; :RETURN 

< 8 5 > 4070 PRINT FNraussw$(swraus); :PR I NT " .. ";:PRINT".. 


< 38 > 

< 42 > 

< 8 8 > 
< 2 > 
< 18 > 

< 3 7 > 

< 7 > 
<81 > 

< 19 > 

< 70 > 

< 44 > 

< 12 > 

< 49 > 

< 26 > 

< 29 > 

< 9 1 > 

< 9 7 > 


4080 swneu(1)=swneu(1>+1 bew(1)=bew(1)+1 : GOSUB 
2230 swrauB=swraus-1 
4090 GOTO 3710 
4100 ' 

4110 'Bewertung 
4120 bewneu=0 
4130 FOR q=1 TO 24 

4140 IF bew(q)=l THEN bewneu=bewneu-10 
4150 NEXT q 

4160 IF 1+zahl(1)>24 THEN 4180 

4170 IF wneul1+zahl(1 ) ) = 1 THEN bewneu = bewneu + 9 
4180 IF j+zahl(2)>24 THEN 4200 

4190 IF wneu(J+zahl(2))=1 THEN bewneu=bewneu+9 
4200 IF bewneu<=bewalt THEN RETURN 
4210 f1aglw=1 : f1ag 1 z=1 + zah1(1) 

4220 f1ag2w=J : f1ag2z = j + zah1(2 ) 

4230 bewalt=bewneu 
4240 RETURN 


< 6 ) 

< 9 > 

< 70 > 
<98 > 

< 41 > 


< 4 > 

< 95 > 

< 6 5 > 

< 76 > 

< 1 7 > 

< 3 7 > 

< 9 2 > 

< 14 > 

< 1 7 > 

< 58 > 

< 5 4 > 

< 4 7 > 

< 78 > 

< 2 3 > 

< 92 > 

< 4 > 

< 40 > 
<10> 

< 19 > 

< 49 > 

< 96 > 

< 88 > 
< 2 6 > 

< 45 > 
<1S> 
<85 > 

<92 > 

< 70 > 

< 13 > 

< 32 > 

< 61 > 

< 79 > 

< 29 > 

< 16> 
< 9 3 > 


<91 > 
< 12 > 
< 20 > 
<91 > 
< 12 > 

< 49 > 

< 12 > 

< 35 > 

< 22 > 
< 10 > 

< 5 > 

< 0 > 

< 1 7 > 


4250 ' 

4260 ' Endphase für Computer 
4270 FOR a=19 TO 24 
4280 FOR b= 1 TO pasch 

4290 IF swa1t(a)>0 AND zahl(b)=25-a THEN zahl(b)=0 
:swneu(a)=swneu(a)-l: bew ( a ) =bew(a )-l :... GOSUB 22 
30 

4300 NEXT b 
4310 NEXT a 
4320 cosleg=0 

4330 FOR 1=19 TO 24 : co s 1 eg = cos1 eg + swa 1 1(1 ) : NEX 
T 1 

4340 IF cosleg < >0 THEN 3730 

4350 PRINT meldl$; :PRINT;PRINT me 1d2$; : PR I NT “ ICH 
.. habe, gewonnen !!!"; 

4360 GOTO 3130 
4370 ' pasch — 

4380 FOR q=l TO 4 : flag(q)=0 : NEXT q 
4390 ma=MAX(zahl(l).zahl(2),zahl(3),zahl(4)) 

4400 IF ma=0 THEN RETURN 

4410 anzahl=(zahl(l)+zahl(2)+zahl(3)+zahl(4))/ma 
4420 IF anzah 1= 1 THEN 4670 

4430 IF anzah 1=2 THEN zahl(l)=ma : zahl(2)=ma : GO 
TO 3760 

4440 FOR xy z = 0 TO 23 

4450 FOR 1=1 TO 2 4:bew( 1 ) = swa1t(1 ) : N EXT 1 
4460 FOR 1=1 TO anzahl 
4470 FOR J=1 TO 24-(ma+xyz) 

4480 IF bew(j)=0 OR bew(j+ma)=5 OR wneu(j+ma)>l TH 
EN 4500 

4490 bew(J)=bew(j )-l : bew (J +ma ) =bew( j +ma)+1 fla 

g(1 )=J : GOTO 4510 

4500 NEXT j 

4510 NEXT 1 

4520 bewneu=0 

4530 FOR q=l TO 24 

4540 IF bew(q)=l THEN bewneu=bewn eu-10 

4550 IF bew( q)>0 ANO wneu(q) = l THEN bewneu = bewneu + 

9 

4560 NEXT q 

4570 IF bewneu<=bewalt THEN 4620 
4580 bewa1t=bewneu 
4590 FOR q=1 TO anzahl 
4600 f1agz ( q ) =f1 ag(q) 

4610 NEXT q 

4620 NEXT xyz 

4630 FOR q=1 TO anzahl 

4640 IF f1ag(q)<>0 THEN swneu( f1agz( q)) =swneu ( f1ag 
z( q ) )-1 : swneu (f1agz(q)+ma)=swneu(f1agz(q) +ma) + 1 
: GOSUB 2230 
4650 NEXT q 
4660 RETURN 

4670 ' Einen Zug ausführen 

4680 zahl (1 )=MAX(zah1( 1). zahl(2) ) 

4690 IF pasch=4 THEN zahl(l)=ma 
4700 FOR 1=1 TO 24-zahl(1) 

4710 IF bew( 1)=0 OR bew(1+zah1( 1))=5 OR wneu(t+zah 
1 (1) )>1 THEN 4750 

4720 bew(1)=bew(1)-l : bew(1 +zahl (1 )) =bew(1 +zahl( 1 

>) + l 

4730 GOSUB 4110 

4740 bew(1 ) = bew(1 ) +1 : bew(1 + zah 1( 1 ) )=bew( i +z ah 1(1 
) )-l 

4750 NEXT 1 

4760 IF flaglz<25 THEN swn eu(f1ag 1 w) = swneu(f 1 ag lw) 
-1:swneu ( f 1 aglz)=swneu(f1aglz)+l: GOSUB 2230 
4770 RETURN 


Lisling Backgammon 


Listing Backgammon 
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JOYCE 720 KB 5,25“ Floppy 


Teamdrive Diskellenstalion. Gehäuse siehe 8ild. 
internes Netzteil, komplett mit Anschlußkabel u. 
Anleitung, problemlos und schnell anschheßbar, 
Incl. Umschalter lür MS-Copy 



DM 369,- 


Spezialkabel I. Joyce Plus (8512) mit Umschalter vom 3"-Laulwerk intern zum 

5,25 "-Laufwerk extern DM 30, - 

MS-Copy: sehr nützliches Programm zum Kopieren von CPM aut MS-DOS- 

Textdateien und umgekehrt DM 49, - 

MSD: Anschlußkabel lür unsere CPC und Joyce-Diskettenstationen an MS-DOS- 

Rechnern. mit Anleitung für 360 KB und720 KB DM35,- 


Schnelder: Euro-PC mit Monitor MM 12 und MS-Works 
Euro-PC mit Color-Monitor CM 14 
AT 2640 mit Monochrom-Monitor 
AT 2640 mit EGA-Monitor EM 2640 
Schneider-Telefax SPF 100 

Teamdrive Floppy extern 3607720 KB. passend zum Euro-PC und AT 


DM 1199,- 
DM 1649.- 
DM 3899,- 
DM4699,- 
DM2499,- 
DM 369.- 


Preise zzgl. Porto u. Verpackung, Versand per Nachnahme, Liste kostenlos 

Krebs electronic 

Datentechnik - Computer - Hardware und Software 
6751 Weilerbach, Tel. 063 74 - 68 78 


fFHB 

' I.nrnSrri nt lfi LocnFont 



NACHRICHTENTECHNIK 


LocoScript 2.IG LocoFont Kallard 8 i 16 Bit CleanPrint 

LocoSpell Keyboard Disk Nulti User Mallard HeadCleaning 

LocoKail Printers Disk fester Pack UDU Streen Filter 

LocoFile Character Set StopPress Printer Stand SD 

LocoKey feil Sorting HeusDesk 4 Zubehör Transporttasche 

NEU! LocoFile (Datenbank) 4 LocoScript 2 Fibel 

Das besondere Handbuch (Tips 4 Tricks) für Kenner exklusiv bei uns I 
!« HD) HABDI (ILLE FARBBÄNDER FÖS DU PCH-SEHI ZU SUPERFROSEN !!! 

NAIKI-FIUI»Colour-Sihbons * Carbon für PCN SS12 „ 

Nenn Sie Fragen haben. HOTLINE Ha-Fr. S-ll 414-16 Uhr 
Besuchter«« nur nach telefonischer Vereinbarung! 



Bramfelder Chaussee Z15/HH 71 
Tel. : 040-641 17 79 
Fax : 040-641 17 76 -''SB! 


2’89 PC 83 













































_ Joyce Programmsammlungen_ 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3"-Diskette und Bedienungsanleitung ausgeliefert. 


Joyce Programmsammlung VOL. VI 


Die universell einsetzbare 
Tabellenkalkulation zum Erstellen 
von Monatsbilanzen, T-Konten 
etc. für die PCW(JOYCE)-Familie 


Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 

eine Startdiskette nötigen Programme und Dateien. Die Be¬ 
dienungsanleitung enthält eine ausführliche Erklärung aller 

Funktionen. 

Funktionen: 

- kurze Einarbeitungszeit, da eine einfache und übersicht¬ 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zuläßt 

- schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 

- auf Wunsch wird die Formel des aktuellen Feldes am un¬ 
teren Rand eingeblendet 

- besonders schnelle Bearbeitung von Eingaben und Be¬ 
rechnungen 


- arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 

- bis zu 68 Zeichen pro Formel möglich 

- eigene Befehle zur Verkürzung der Formeln 

- drei verschiedene Schriftarten beim Drucken 

- standardmäßig 2574 frei belegbare Felder 

- akzeptiert sogar Exponentenschreibweise 

Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW’s) braucht den Vergleich mit vielen teureren Program¬ 
men nicht zu scheuen. 

Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 
Best.-Nr.: 22 i 3“-Diskette 59, -DM* 

unverbindliche Preisempfehlung 



Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PCW(JOYCE)-Familie 
(PCW8256, PCW8512, PCW9512**) 

Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini¬ 
maler Disketten-Speicherbedarf! 



Die wichtigsten Leistungen von Vol. V aut einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram¬ 
me eingebunden werden können. 

- Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Datenlöschung. 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze. 

- Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere Sätze ver¬ 
braucht werden. 

- Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 

- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

- Alle Programme werden auf der RAM-Floppy gehalten. 

- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal¬ 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

- Auf Wunsch Summen numerischer Spalten. 

- Freie Wahl der Sortierung; Mehrfachsortierkriterien. 


- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 

- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er¬ 
fassen. 

- Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol¬ 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
Seite. 

- Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent¬ 
sprechenden Listen können jederzeit abgerufen werden. 

Sofort Ergebnisse statt (frustrierender) Erlebnisse! 

VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 

Bedienungsanleitung r»»** 

Best .-Nr.: 220 3“-Diskette 99, - DM* 

unverbindliche Preisempfehlung 

** PCW 9512 auf Anfrage 


VC 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3.- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 
__ _ _ _ _ Bitte benutzen Sie die Bestellkarte. 

_ DMV Verlag ■ Fuldaer Str. 6 • 3440 Eschwege_ 

















BlldEdltor 

Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken, 
welche in eigene Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucker. 

Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei¬ 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgeliefert. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen, 
Lösch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar. 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden. 

Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 

VOL. IV für Joyce/PCW 8256/8512 mit 


VOL. IV für Joyce/PCW 8256/8512 m 
ausführlicher Bedienungsanleitung 


Best.-Nr.:219 


3“-Diskette 


59,- DM* 

unverbindliche Preisempfehlung 


1. Feld-Tab 

r Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie Sei¬ 
tenlange, Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden. 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Überein Menü sind folgende Funktionen wählbar: 
■ Balkendiagramme • Kurvendiagramme • Strichgrafik 
• Punktediagramme Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuenI 

VOL.III für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 


3“-Diskette 


69, - DM* 

unverbindliche Preisempfehlung 


SUPERdat 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen und -längen sowie die Länge des Suchbegriffs voreinsteilen 
können. 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf. Die Gesamt¬ 
länge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender vorausge¬ 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo¬ 
coScript lesbare Datei umgewandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.II für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 


3“-Diskette 


49, - DM* 

unverbindliche Preisempfehlung 


1. Der Character-Designer 
F Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
8512 und deren Darstellung am Bildschirml Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er¬ 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 

CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter. 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

2. MGX 

Funktion: Grafische Darstellung von mathematischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 

VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr.: 215 3“-Diskette 59,-DM* 

unverbindliche Preisempfehlung 


D M V - Angebot 

Praktische Textverartoeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Sie¬ 
ben zeigt in diesem Buch Möglichkeiten der Text¬ 
verarbeitung auf, die Sie von LocoScript nicht er¬ 
wartet hätten... Von der Pike auf werden Sie an 
den Umgang mit Schablonen und Standardlayout 
herangeführt. Einige Abstecher führen Sie an¬ 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fort¬ 
geschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro¬ 
gramm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 

Auf Diskette: Über 50 Dateien mit Schablonen. Briefen. Postkarten, Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3“-Diskette Best.-Nr. 401 


DM 89,-’ 


Joyce 

Bücher-Kiste 


Aus dem Data Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken, LOGO ist heute eine anerkannte Sprache 
bei vielen ehrgeizigen Programmprojekten. Das reicht bis hin zur Erstellung 
von Kl-Programmen. Hier das Buch für CPC- und Joyce-Besitzer, die viele Vor¬ 
teile dieser Sprache kennenlernen wollen. Um nur einige Stichworte zu nen¬ 
nen: Listenverarbeitung, Prozeduren, Rekursionen, Sortierroutinen, Masken¬ 
generator. Nutzen Sie diese Sprache für Ihre eigenen, ehrgeizigen Programm¬ 
ideen. 

410 Seiten Best.-Nr. 417 DM39,-* 

Das große Joyce-Buch 

Von der Textverarbeitung zum Programmieren - das bietet Ihnen das große 
Joyce-Buch. Hier werden alle Themen abgedeckt, die für Joyce-Nutzer inter¬ 
essant sind. Spezielle Anwendungen mit LogoScript, Personalisieren des Sy¬ 
stems mit CP/M. Multiplan auf dem Joyce, Uhr in BASIC, Grafikprogrammie¬ 
rung in LOGO und viele andere interessante Themen warten auf Sie im gro¬ 
ßen Joyce-Buch. 

418 Seiten Best.-Nr. 418 DM59,-* 

Programmierwissen pur im Westentaschenformat 

DM 29,80* 

DM 19,80* 

Joyce für Einsteiger 

Wer einen Joyce gekauft hat, der möchte schnell und effektiv mit diesem 
Rechner umgehen. Joyce für Einsteiger wird dieser Anforderung voll gerecht. 
Von Kleinigkeiten, wie dem Anschluß des Gerätes oder dem Kopieren der Sy¬ 
stemdiskette bis hin zur optimalen Arbeit mit LocoScript finden Sie alles Not¬ 
wendige. Dazu eine kleine Einführung in BASIC und LOGO und natürlich in 
das Betriebssystem von CP/M-Plus. 

248 Seiten Best.-Nr. 453 DM 29, - * 


Führer zum Joyce 

Best.-Nr. 450 

Führer zum CP/M 

Best.-Nr. 452 


programmieren 

it es sich zur Aufgabe gemacht, den Joyce als vollständigen Com- 


Aus dem Franzis Verlag-Angebot 

Den Joyce 

Der Autor hat'i 

puter zu beschreiben. Er vermittelfdem Joyce-Besitzer eine Menge interes¬ 
santer und nicht alltäglicher Kenntnisse. Außerdem ist das Buch angefüllt mit 
Programmlistings, die für den fertigen Einsatz konzipiert sind. Aus diesen Li- 
stings lassen sich zahlreiche ausgefeilte Programmtricks entnehmen. Der Auf¬ 
bau und die Bedienung des CP/M-Betriebssystems werden ebenfalls für den 
Joyce-Anwender, der sich nicht mit einfacher Textverarbeitung begnügen will, 
behandelt. Insgesamt stellt das Buch eine interessante Programmierliteratur 
für den technisch interessierten Joyce-Eigner dar. 

ca. 160 Seiten Best.-Nr. 425 DM 38,-* 

Aus dem Hüthig-Verlag-Angebot 

Joyce - Das Praxisbuch zur Textverarbeitung 

Dieses Buch füllt einerseits die Lücken, die die zum Joyce mitgelieferten 
Handbücher noch offen gelassen haben, und gibt andererseits viele Tips zur 
praktischen Arbeit mit LOCO-SCRIPT. 

Sie erfahren, wie man Briefköpfe erstellt, Formulare ausdruckt, eine Phrasen¬ 
datei anlegt, mit dem Drucker kleine Firmen-Logos erstellt oder die verschie¬ 
denen LOCO-SCRIPT-Optionen effektiver nutzt. So kann das offensichtlich 
fehlende Mail-Merge doch mit Hilfe eines kleinen BASJC-Programms nach¬ 
empfunden werden. Zahlreiche Hardcopies und eine Übersicht sämtlicher 
LOCO-SCRIPT-Menüs mit den zugehörigen Untermenüs helfen sowohl Neu¬ 
lingen als auch »alten Hasen« gleichermaßen. 

125 Seiten, Best.-Nr. 419 DM 35,-* 

* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 3, - OM 
bzw. für das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag -FuldaerStr. 6 • 3440 Eschwege 


















^PC 



Ein Lehrling braucht Hilfe 

Oh, Mutter - Puzzle-Spiel für die PC 1640 und 1512 

Was macht der KFZ-Mechaniker- Lehrling, Verzeihung: AZUBI, wenn er 
von seinem Meister eine die Aufgabe bekommen hat, Radmuttern festzuzie¬ 
hen, dies jedoch in eine schwierige Arbeit ausartet? Na klar, er bittet Sie, 
liebe Leser, um Hilfe. Zumindest in unserem Spiel 'Mutter’. 


Bei diesem Spiel gehl es wie schon an¬ 
gedeutet darum, einem AZUBI zu hel¬ 
fen, die Radmuttern eines ausländi¬ 
schen Pkws fest anzuziehen. Die sie¬ 


ben Schrauben dürfen jedoch nur so 
fest angezogen werden, daß sich an al¬ 
len Berührungspunkten gleiche Ziffern 
gegenüberstehen. Normalerweise eine 


Kleinigkeit, wenn da nicht irgendein 
mißgünstiger Mensch die Muttern ver¬ 
tauscht hat, so daß alle Eck- und Berüh¬ 
rungspunkte nicht mehr aneinander¬ 
passen. Sie sollen nun dem AZUBI hel¬ 
fen, alle Schrauben in die richtige Lage 
zu bringen. 

Wie man dem AZUBI hilft 

Die Schrauben werden mit den Maus¬ 
tasten RECHTS/LINKS gedreht. Die 
Operationen 'Drehen', Markieren* 
und 'Tauschen’ beziehen sich auf die 
Mutter, die durch den Zeiger gekenn¬ 
zeichnet ist. Mit SHIFT LINKS und 
der linken Maustaste wird eine Mutter 
markiert. Die Zahlen werden anders¬ 
farbig dargestellt. Mit SHIFT LINKS 
und der rechten Maustaste wird die 
Mutter, auf der der Zeiger steht, gegen 
die markierte Mutter ausgetauscht. 
Sind Markierung und Mutter gleich, 
wird die Markierung gelöscht. 

Es gilt, insgesamt vier Räder anzuzie¬ 
hen. Nach jedem Rad erfolgt eine Ab¬ 
frage. ob das nächste Rad ausgegeben 
werden soll. 

Während des Spiels kann jederzeit mit 
ALT und der linken Maustaste abge¬ 
brochen werden. 

Das Programm wurde auf einem 
PC 1640 erstellt. Sollten beim 1512 die 
Muttem nicht vernünftig positioniert 
werden, müssen die Datazeilen am 
Ende (Hinweis im Programm) abgeän¬ 
dert werden. 

(M. Köthe/jb) 


CLEAR RESET 
G0SU8 Vorbereitung 
GOSUB spielerklaerung 
GOSUB ln 1t 
RANDOMI 2 E TIME 

REPEAT 

GOSUB aufbau:reifen=reifen+1 
ge 1oest=FALSE:abbruch=FALSE 
REPEAT 
REPEAT 

bl=BUTTON(1) 
b2=BUTT0N( 2 ) 

UNTIL blO-1 OR b2< >-1 
IF bl=8 THEN abbruch=TRUE 
IF NOT abbruch THEN GOSUB Überprüfung 
IF NOT abbruch AND korrekt THEN GOSUB ausw 
e rtung 

UNTIL geloest OR abbruch 

IF NOT abbruch THEN IF re1fen=4 THEN GOSUB g 
rat2 ELSE GOSUB gratl 

IF reifen < >4 THEN GOSUB endabfrage 
UNTIL ende 
CLEAR RESET 
END 

LABEL grat2 

MOVE 200;400:PRINT MODE(2) POINTS(20) COLOR( 
2) "Gratuliere, alle 4 Reifen befestigt !" 

FOR i=1 TO 6:PRI NT CHR$(7 ) ; :NEXT 1 
REPEAT 
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bl=BUTTON(1) 
b2=BUTTON(2) 

UNTIL blO-1 OR b2 < >-1 
end e = TRUE 
RETURN 

LABEL gratl 

MOVE 5000;500:PRINT MODE(2) P0INTS(20) COLOR 
(2) "Gratuliere !" 

FOR 1=1 TO 3:PR INT CHR$(7) ; :NEXT 1 
FOR 1=1 TO 14000:NEXT 

MOVE 5000;500:PRINT M0DE(2) POINTS(20) COLOR 
(8) "Gratuliere !" 

RETURN 

LABEL endabfrage 

IF abbruch THEN reifen=0 

MOVE 5000;500:PRINT MODE(2) POINTS(20) COLOR 
(2) "Weiter (J/N)" 

MOVE 6380;300:PRINT M0DE(2) " 1inks/rechts" 

FOR i=1 TO 5000:NEXT 

REPEAT 

bl=BUTTON(1) 
b2 = BUT TON(2) 

UNTIL blO-1 OR b2 < > - 1 
IF b2=1 THEN ende=TRUE 
RETURN 

LABEL auswertung 

IF bl = 0 THEN GOSUB 1in ks:RETURN 
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IF b2 = 1 THEN GOSUB rechts:RETURN 
IF bl=2 THEN GOSUB markieren : RETURN 
IF b2 = 3 AND markoo THEN GOSUB tauschen 
RETURN 

LABEL tauschen 

IF mark=mutt THEN farbe=3:GOSUB zahl_ausgebe 
n:mark=0:RETURN 

spei eher=mutt:farbe = 4 
GOSUB zahl_ausgeben 
mutt=mark-.GOSUB zah1_ausgeben 
FOR 1=1 TO 6 

s=feld(mark , i ) 

feld(mark,i)=feld(speicher,i ) 
feld(speicher,i)=s 
NEXT i 

farbe=3:GOSUB zahl_ausgeben 
mutt=speicher:GOSUB zahl_ausgeben 
ma r k = 0 

GOSUB gelöstabfrage 
RETURN 

LABEL ge 1östabfrage 
geloest=TRUE 
FOR i=1 TO 12 

IF feld(abfr(1,1),abfr(i,2))<>feld(abfr(i, 
3),abfr(1,4)) THEN geloest=FALSE:i=12 
NEXT i 
RETURN 

LABEL markieren 

IF ma rk=mu tt THEN RETURN 
speicher=mutt 

IF markOO THEN farbe = 3 : mutt=mark : GOSUB zahl 
_ausgeben:mutt=spe1cher 
mark=mutt 
fa rbe = 2 

GOSUB zah1_ausgeben 
RETURN 

LABEL rechts 
farbe=4 

GOSUB zahl_ausgeben 
GOSUB rechts_drehen 

IF mark=mutt THEN farbe=2 ELSE farbe=3 
GOSUB zahl_ausgeben 
GOSUB ge 1östabfrage 
RETURN 

LABEL rechts_drehen 
s=feld(mutt,6) 

FOR 1=6 TO 2 STEP -1 

feld(mutt,1)=feld(mutt,i-l) 

NEXT 1 

fe 1 d(mutt, 1 )=s 
RETURN 


Listing Oh. Mutter 


LABEL links 
fa rbe = 4 

GOSUB zahl_ausgeben 
GOSUB 1 1nks_drehen 

IF ma r k=mu tt THEN f?ärbe = 2 ELSE farbe = 3 
GOSUB zahl_ausgeben 
GOSUB ge 1östabfrage 
RETURN 

LABEL links_drehen 
s=feld(mutt,1) 

FOR i=1 TO 5 

feld(mutt,i)=feld(mutt,i+1) 

NEXT i 

f e 1 d(mutt,6 )=s 
RETURN 

LABEL Überprüfung 
korrekt=FALSE 
FOR 1=1 TO 7 

IF XMOUSE> =mpos( i , 1 ) AND XMOUSE<=mpos(i ,1) 
+60 AND YMOUSE>=mpos(i,2) AND YMOUSE<=mpos(i,2 
) + 70 THEN korrekt = TRUE:mutt = i :1 =7 
NEXT i 
RETURN 

LABEL mischen 
spiel=RND(4) 

FOR i=1 TO 7 
FOR x =1 TO 6 

feld(i,x)=mutter(spiel,i,x) 

NEXT x 
NEXT i 

FOR 1=1 TO RND( 10) +10 
a=RND( 7) 

REPEAT 

b=RND(7) 

UNTIL aOb 
FOR x =1 TO 6 
s=fe1d ( a,x ) 
feld(a,x)=feld(b,x) 
feld(b,x)=s 
NEXT x 
NEXT i 

FOR 11=1 TO 7 
mutt=ii 

FOR x = 1 TO RND(4) + 1 
GOSUB 11nks_drehen 
NEXT x 
NEXT 1 i 
RETURN 

LABEL aufbau 
aufbau=TRUE 
CLS:GOSUB mischen 
WINDOW #1 MOUSE 3 
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Unser Tip: * STARDRIVE 5.25 (External Disk Drive) 

5.25” Diskettenzweitlaufwerk für CPC 464/664/6128 
(s. Test in H. 10/88 S. 40; Fazit, "sehr empfeh lenswert” ) 

12 Monate Garantie, Geräte aus industrieller Produktion 

- Formschönes Flachgehause mit int BreitbancJ-LED-Anzeige (Power, Drive on) 

- Sehr leiser Lauf (Zitat aus PC-Test: "völlig geräuschlos”) 

- Vollintegriertes hochw. Schaltnetzteil, Netzschalter mit LED- Anzeige 

- eingebauter Diskettenseitenumschalter (kein Umdrehen d. Diskette mehr) 

- 360 KB, 2x40 Spuren, Headlift (verhindert Datenverlust). 2 Schreib/L.-Köpfe 

- alle Kabel und Bedienungsanleitung im Lieferumfang enthalten 
Jetzt auch als ERSTLAUFWERK für CPC 464 lieferbar: 

Incl Handbuch, Systemdiskette. Controller 
Weitere Angebote (Auszug aus unserer kostenl. Liste) 

- 3"-Erstlw mit ext. Netzteil mit Systemdisk, Contr./Handbuch 

- 3"-Zweitlw. FD1 orig. Schneider/Amstrad 

- Supernetzteil mit Gehäuse u. Schalter 
+5V/2.5A ' +12V/1.5A f, alle Floppies 

Preiszzt)l PoilorVerpackung, LisiB.'ProspekiB kosie-ilos _ 

G + L electronic 

Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 


nur 298, - DM 
nur 498, - DM 

nur 378, - DM 
nur 278, - DM 

nur 39, - DM 


Göddeker Computer und Zubehör GmbH 

Herstefcmg Import ■ Export • Großhandel 

Höftestraße 32 • D-4400Münster24 - Telefon 0251/619681 • Telex B92180 


PEGASYS Codata AT-80286 Turbo B Universaldatei 



B0286-12CPU, ÖA2 MHZ mH O-walWtate, 
B Steckpl&tze für Erweiterungen vorhanden, 
e0287-Coprozowof-Stec*platz vorhanden, 
battenegepufleflo EoMwItuhf. Iß MByte 
RAM (erweilerbar tx$ *0 MByto). Mono- 
grapnlc-Cord (He»kules-komp.). FD/HD- 
Coni rotier, 1.2 MBy1^5^fi’D«kotit»nioufwerk. 
20-MByte-Fe9tplarte, 200 WatvNettiort, daul- 
ach« DIN-Tastatur mH ebgoseutom Curaor- 
dock, Turbo- und Re9et-Taate, 14*-Mono- 
chrom-Mondor {boraKHntarbige Anzeig«) Im 
modernen Flath-Oesign, MS-DOS 330, GW- 
Basic und Inklusive Maua 





C PC-464/664/6128-Sofl wäre 49*10 

(nur auf a’-DieXette), Kompleliprogramm mH folgenden Einzelpro¬ 
grammen: AdrossonvervwiHung. Vrdoodalel. MuBlkarchlv und als 
Bonus «Ina VerelnsverwaHung mit Lastschrlftausdruc*. Di« Pro¬ 
gramme aüid alle in Deutsch und über oine Bedlonerlührung im 
Menüwll enztzwihlen Deutsche Umleute <8,0.0.8) alno selbntvor- 
st And« Ich. 


1 Disketten 

3,0" 

10S« ICO st. 

PEGASYS CF-2 

55.- 500,- 

PEGASYS CF-2-DD 

85.- 750,- 

w 

10 St. 100 St 

Neutmlo MF-l-OD 

26, - 245.- 

Neutrale MF-2-DD 

29.- 280.- 

6.28* 

10 St. 100 St. 

Neutrale MM-D 

7.99 75.- 

| Zubehör 


Dtekaltenboxen 15»90 

PEGASYS YA-3M0-1 mrt SchloB und Ersa&schlüswl für 80 Stück 
V>~- <xiof 3*- Disketten 

MonltorelAndor 25,- 

PEGASYS MS-14 für eile Momloro bo 14“ Mit Feststellschraube. 

dreh- und schwenkbar. 


Alle Preise sind unverbindlich. Oer Versand erktfgt per Nachnahme oder Vorkasse per Euroscheck zuzüglicn Versandkoaten 
Technische Änderungen oc» a/len Artikeln vorbehaHen, 
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BOX 0;0,8400,5000 FILL WITH 8 COLOR 8 

MOVE 1500;4500:PRINT M0DE(2) P0INTS(20) COLO 
R ( 2 ) "OH, Mutter" 

MOVE 5000;4000:PRINT M0DE(2) POINTS(20) COLO 
R(10) "Mousetasten:" 

MOVE 5000; 3500: PRINT M0DE(2) C0L0R(3) "Links 
- Links drehen" 

MOVE 5000; 3200:PRINT MODE(2 ) C0L0R(3) "Recht 
s - rechts drehen" 

MOVE 5000;2700:PRINT M0DE(2) C0L0R(5) "Link 
S SHIFT + Links" 

MOVE 5000;2400:PRINT M0DE(2) " - mark 

ie ren " 

MOVE 5000; 2100:PRINT M0DE(2) COLOR(5) "Link 
s SHIFT + Rechts" 

MOVE 5000;1900:PRINT M0DE(2) " - taus 

chen " 

MOVE 5000;1300:PRINT MODE(2) COLOR(ll) 

ALT + Links" 

MOVE 5000;1100:PRINT M0DE(2) " - Abbr 

uch" 

farbe=3 

FOR 1=1 TO 7 

GOSUB mutterbau 
mu tt= 1 

GOSUB zahl_ausgeben 

NEXT 1 

aufbau=FALSE 
RETURN 

LABEL zahl_ausgeben 

IF NOT aufbau AND färbe 03 THEN PRINT CHR$( 


MOVE posi(mutt,1)+plus(x,1);posi(mutt,2)+p 

1us(x,2) 

PRINT MODE(2) COLOR(farbe) feld(mutt.x) 
NEXT x 
RETURN 

LABEL mutterbau 

SHAPE posi(1,1);posi(i,2), posi(i,1)+800;pos 
1(i,2), posi(i,1)+l100;posi(i,2)+600, posi(1,l 
) +800; posi( 1 ,2) + 1200, posi(1 ,1);posi(i ,2) + 120 
0, posi(1 , 1 )-300;posi (i ,2) + 600 FILL WITH 8 CO 
LOR 4 

CIRCLE posi(i,1)+400;posi(i,2)+600,240 FILL 
ON LY COLOR 8 
RETURN 

LABEL Vorbereitung 
CLOSE WINDOW 3 
CLOSE WINDOW 4 

SCREEN #1 GRAPHICS XUSABLE FIXED,YUSABLE FIX 
ED 

SCREEN #2 TEXT 79 FIXED.22 FIXED 
WINDOW #1 FULL 
WINDOW #2 FULL 
WINDOW #1 TITLE "OH, Mutter 
WINDOW #2 TITLE "Spielerklaerung 
RETURN 

LABEL spielerklaerung 

PRINT #2 AT (35;1) C0L0R(2) "OH, Mutter" 
LOCATE #2,1;3 

PRINT #2" Endlich bekommt der AZUBI ein 

er KFZ - Werkstatt eine Aufgabe ohne 

Aufsicht. Er soll die Raeder eines auslae 
nd1 sehen Pkw's anziehen. Diese d 

ürfen jedoch nur so fest angezogen werden, daß 
sich an den" 

PRINT #2" Berührungspunkten immer die g 

leiche Zahl gegenübersteht." 

PRINT #2 C0L0R(2)” Es geht nicht. " ; : PRI 

NT #2" Ein Blick zum Kalender - NEIN, heut 1 is 
t nicht der" 

PRINT #2” 1. April. Also muß jemand die 

Muttern vertauscht haben." 

PRINT #2" Wer hilft ihm ?" 

PRINT #2" Operationen beziehen sich auf 

die Mutter, auf die der Mousezeiger" 


PRINT 

#2 


zeigt:“:PRINT #2 

PRINT 

*2 


Linke Mousetaste 


- 

Mutte r 

1 inks drehen." 

PRINT 

#2 


Rechte Mousetaste 


- 

Mutter 

rechts drehen." 

PRINT 

#2 


SHIFT links + linke M-Tas 

te 

- 

Markieren.” 

PRINT 

#2 


SHIFT links + rechte M-Ta 

ste 

- 

T auschen." 

PRINT 

#2 


(getauscht wird die markier 

te Mutter mit der 

Mutter unter dem" 

PRINT 

#2’ 


Mousezeiger)." 

PRINT 

#2' 


ALT + linke M-Taste 


- Abbruch 


PRINT 

#2 

AT (22 

21)"Mousetaste d 

rück 

e n '* 



REPEAT:UNTIL BUTTON(1)<>-1 OR BUTTON(2)<>- 1 
WINDOW #2 CLOSE 
RETURN 


LABEL 1n1t 

DIM posi(7,2),plus(6,2),mutte r(4,7,6),abf r(1 
2,4) ,mpos(7,2) 

FOR i=1 TO 7 
FOR x =1 TO 2 
READ mpos(i,x) 

NEXT x 
NEXT i 

FOR i=1 TO 4 
FOR x=1 TO 7 
FOR y=1 TO 6 

READ mutter(i ,x,y ) 

NEXT y 
NEXT x 
NEXT i 

FOR i=l TO 12 
FOR x=l TO 4 
READ abfr(i,x) 

NEXT x 
NEXT 1 

FOR 1=1 TO 6 
FOR x=l TO 2 
READ plus(i,x) 

NEXT x 
NEXT i 

FOR 1=1 TO 7 
FOR x =1 TO 2 
READ posi(i,x) 

NEXT x 
NEXT i 

DATA 77,133,165,174,255,133,255,53,165,14,77 
,53,165,94 


DATA 

5,4,3,2,1,6,2 

,3,5,1,4,6,3,2,4,1,6,5 

DATA 

1.4,3,6,5,2,4 

,5,6,1,2,3,2,5,3,1,6,4 

DATA 

1,6,2,4,5,3 


DATA 

1,2,6,3,5,4,5, 

,6,3,1,2,4,1,6,5,4,2,3 

DATA 

4,1,2,6,5,3,4, 

,5,3,2, 1,6,3,5,6,4,2,1 

DATA 

1,2,3,4,5,6 


DATA 

5,2,4,1,3,6,4, 

,5,3,6,2,1,4,6,5,1,2,3 

DATA 

1,3,2,6,4,5,1, 

4,6,2,3,5,1,3,5,6,2,4 

DATA 

6,2,5 , 1,3,4 

DATA 

5,6,3,2, 1,4,2, 

3,4,5,6,1,5,6,2,3,1,4 

DATA 

3,6,5,1,4,2,6, 

4,3, 1,2,5,2,4,5, 1,3,6 

DATA 

5,1,2,6,4,3 


DATA 

2,4,7,1,2,3,3, 

6,1,2,2,5,1,3,7,6 

DATA 

3,5,7,2,1,4,6, 

1,3,4,4,1,4,6, 7,3 

DATA 

4,5,5,2,5,1,7, 

4,5,6,6,3,6,2, 7,5 

DATA 

250,980,640,770,640,300,250,80,-150.300 

-150,770 



REM - 

REM - Beim 1512 müssen die beiden folg. DATA 
-Zeilen evtl, entsprechend 

REM - veraendert werden, da die Umrechnung n 
icht immer genau funk- 

REM - tioniert. 1 Wert - XPosition, 2 Wert - 
YPosition der Muttern 
REM - 

DATA 990,2090,2150,2730,3300,2090 
DATA 3300,830,2150,200,990,830,2150,1460 

RETURN 
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DMV präsentiert 

JOYCE Sonderheft 4 







% 




Jetzt 120 Seiten! Supersoftware und Informationen. 

Die erfolgreiche Reihe der JOYCE Sonderhefte wird um einen Knüller erweitert. 

Die JOYCE Sonderhefte sind Sonderpublikationen aus der Redaktion der PC International für 
JOYCE und JOYCE Plus. Sie enthalten ausschließlich noch nicht veröffentlichte Programme. 


Aus dem Inhalt: 

- Strickmustergenerator 

- Wordstar Verbesserungen 

- Bundesligasimulator 

- Super Reaktionsspiel 

- FILEMANAGER 

- Pull-Down-Menüs 

- Stichwortverzeichnis 

- Astrologieprogramm 

- Diskettenmonitor 

- Hauptstädte raten in LOGO 

- Statuszeile für dBase und Basic 

- Hardcopyroutine für 24-Nadler 

- LOGO macht Schachteln 

- dBase-Literaturverwaltung 

- Universelles Werkzeug zur Ver¬ 
änderung von dBase-Dateien 


JOYCE Sonderheft 4: 

Best.-Nr. 367 20,- DM* 



JOYCE DATABOX Sonderheft 4 
Hier finden Sie alle Programme 
und Dateien auf vier Disketten¬ 
seiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten 
Preise bei! 

Das Leistungsverhältnis, das sich 
für Sie bezahlt macht. 

Erhältlich als 3“-Disketten für alle 
PCW 8256/8512/9512 
Diskette 1 enthält alle Programme 
lauffähig. Diskette 2 enthält die 
Quellcodes. 

Disk. 1: Best.-Nr. 3671 30,- DM* 

Disk. 2: Best.-Nr. 3672 24,- DM* 

Kombipack Disk. 1 und 2: 

Best.-Nr. 3673 48,- DM* 


Falls Ihr Händler das JOYCE Sonderheft nicht führt, nutzen Sie die Bestellkarte und bestellen direkt beim Verlag 


Das JOYCE Sonderheft 1 ist ausverkauft. 

(Bitte nicht mehr bestellen) 



JOYCE Sonderheft 2 

Aus dem Inhalt: 

- 3D-Plotter 

- Pascal Compiler 

- dBase-Handbuch 

- Kybernetik-Lernspiel 

- Quickregister 

- Spaltendruck (LocoSript) 

- Entscheidungsgenerator 

- Grafmod-Erweiterung 

- Adreßverwaltung 

- Archivverwaltung 

- Kalender 

- Funktionszeichner (LOGO) 

- Lister f. Basicprogramme 


JOYCE Sonderheft 3 

Aus dem Inhalt: 

- Memory-Spiel 

- Mini-DTP-Programm 

- Vokabeltrainer 

- Zeichenprogramm in LOGO 

- 17-und 4-Spiel 

- Kopierprogramm 

- RAM-Monitor 

- Druckerspooler 

- Reset ohne Datenverlust 

- 43 Spuren schreiben und lesen 

- ein Super-Werkzeugkasten für 
dBase 

u.a. mehr, insges. 24 Programme 


Alle im Heft veröffentlichten Programme sind auch auf 3“-Disketten er¬ 
hältlich. Diskette 1 enthält alle Programme lauffähig. Diskette 2 enthält 
die Quellcodes. 


Noch bei DMV erhältlich: 



JOYCE Sonderheft 2: 

Best.-Nr. 302 20. DM* 


Databox Diskette 1: 

Best.-Nr. 304 30,- DM* 


JOYCE Sonderheft 3: Databox Diskette 1: 

Best.-Nr. 359 20,- DM' Best.-Nr. 360 


Kombipack Disk. 1+2: 

Best.-Nr. 306 48,- DM* 


Databox Diskette 2: 

Best.-Nr. 305 24.- DM* 


Kombipack Disk. 1+2: 

Best.-Nr 362 48,- DM* 


Databox Diskette 2: 

Best.-Nr. 361 


Noch zu erhalten: Die Diskette zum JOYCE Sonderheft Nr. 1 Best.-Nr. 303 30,- DM* 


30,- DM* 
24,- DM* 


* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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Der Stand der Dinge 

KONTO - Geldsachen per PC geregelt 

Man kennt es, das Problem mit dem Geld: meistens ist es auf dem Kalender 
erst Mitte des Monats, in der Geldbörse jedoch bereits der 30. Um diesem 
Mißstand wenigstens einigermaßen abzuhelfen, haben wir für Sie ein Kon¬ 
toführungsprogramm parat. 


KONTO bietet Ihnen die Möglichkeit 

— Eingaben zu löschen, zu verändern 
oder in Form von Kontoauszügen 
anzeigen bzw. ausdrucken zu lassen, 

- bestehende Konten nach der Eingabe 
auf Diskette zu sichern bzw. zu laden. 

Die Dateien, die durch KONTO erstellt 
werden, tragen den Namen des einge¬ 
gebenen Monats. Außerdem wird der 
Zugriff auf Ihre Dateien mit Hilfe Ihres 
Namens und einer Codenummer gesi¬ 
chert, um Neugierige fernzuhalten. 


Nach dem Starten von 'KONTO’ er¬ 
scheint das Titelbild. Drücken Sie die 
Space-Taste, und Sie gelangen ins 
Hauptmenü. Hier stehen verschiedene 
Punkte zur Auswahl: 

Bevor man an die Arbeit geht, sollte 
man mit dem Übertrag des letzten Mo¬ 
nats beginnen, um dem Programm und 
damit Ihrer Kontoführung eine Grund¬ 
lage zu geben. Mit der Space-Taste ge¬ 
langen Sie jederzeit ins Hauptmenü. 
Soweit nicht anderes verlangt wird, ge¬ 


• ***************************** 

' * KONTO * 

• ***************************** 

'* programmed * 

• * by * 

'* Tina Kaiser * 

'* (c) 1986 * 

'***************************** 

CLEAR RESET 
CLOSE WINDOW 3 
CLOSE WINDOW 4 
FOR 1=1 TO 4 
CLOSE #1 
NEXT 1 

• ********* dimensionierung für neue eingaben **** 
**** 

eing abe = 999 

DIM buchung$(eingabe) 

DIM sh$(eingabe) 

DIM bet rag(eingabe) 

DIM datum$ ( e i ngabe ) 


Lisiing Konto 


langen Sie jederzeit mit der SPACE- 
Taste zurück ins Hauptmenü. Fehler¬ 
hafte Eingaben werden durch ALERT- 
Boxen angezeigt, man kann also in die 
Eingabe zurückgehen. Falls Sie die 
Eingabe ändern wollen, die vorherige 
aber vergessen haben, können Sie den 
Kontostand durch Anwählen von 
'FENSTER’ mit der Maus und An¬ 
klicken von 'ERGEBNIS-1’ betrach¬ 
ten, vorausgesetzt, er wurde schon ein¬ 
mal angezeigt. 

Programmaufteilung: Das Programm 
gliedert sich folgendermaßen auf: 

— Eingaben verwalten 

— Neue Eingaben 

— Eingaben ändern 

— Auswahl der zu ändernden Einga¬ 
ben, oder ohne Änderung zurück in ein 
Menü 

— Eingaben löschen 

— Auswahl der zu löschenden Einga¬ 
ben, oder ohne Löschung zurück in ein 
Menü 

— Kontoauszug anzeigen 
Drucker oder Bildschirm nach Wahl 

— Eingaben sichern 
Standard — > Laufwerk B: (A.) 

— Eingaben laden 

Standard — > Laufwerk B: (A:) 

— Sonstiges 

Erweiterungsmöglichkeit für Sie, hier 
können Sie eigene Erweiterungen an¬ 
fügen. 

— Übertrag 

Wird ein neuer Monat begonnen, so 
muß zuerst der Übertrag des letzten 
Monats eingetragen werden Das Pro¬ 
gramm läuft normal mit der CGA-Gra- 
fikkarte und zwei Laufwerken. Besit¬ 
zer anderer Grafikkarten müssen die 
GRAPHICS-Anweisung im Programni¬ 
tei] Einleitung nach ihren Gegebenheiten 
umschreiben. 

(Tina Kaiser/jb) 


we 1 = 1 

wieviel=wei 

OPTION DECIMAL "."," " 

OPTION DATE 1,"." 

********* elnleitung ********** 

S t = 4 

GOSUB fenster 

WINDOW #4 TITLE"Tina Kaiser KONTO Juni 

- August 1988" 

SCREEN #4 GRAPHICS 640,200 
WINDOW #4 OPEN 

sch$="KONTO" 

PRINT #4 AT((60-LEN(sch$))/2;7)COLOR(7)EFFECTS(5)F 
ONT(3)POINTS(36)sch$ 

PRINT #4 AT(5;ll)COLOR(15)" J Tina Kaiser": 1 M = 

11«-taste + 1 8 9 Im Zahlenblock 
PRINT #4 AT(16;13)COLOR(7)"Nordrach“ 

PRINT #4 AT(14;15)COLOR(8)"Baden - Württemberg" 
PRINT #4 AT(55;11)COLOR(13)"Datum : ";DATE $ 

PRINT #4 AT(50;13)COLOR(13)"Juni - August 1988" 


Lisiing Konto 
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REPEAT 

w$=" > Weiter mit Space-Taste < " 

PRINT #4 AT((80-LEN(w$) )/2 ;18)COLOR ( 4 ) w$ 
FOR w=l TO 2000:NEXT w 
UNTIL INKEY$=“ “ 

' ***************** menue ************* 



LABEL menue 
CLOSE #4.4*2 
st = 2 


GOSUB fenster 

WINOOW #2 TITLE"Menue" 

SCREEN #2 TEXT 
WINDOW #2 OPEN 
CLS #2 

PRINT #2 AT(10;2)"10 Eingaben verwalten " 

PRINT #2 AT{10;4)"20 Kontoauszüge anzeigen oder 
ausdrucken 


PRINT #2 AT(10;6)"30 
PRINT #2 AT(10;8)"40 
PRINT #2 AT(10;10)"50 
PRINT #2 AT(9;13)"100 
e Jeden Monatsersten) 


Eingaben sichern " 
Eingaben laden " 
Sonstiges" 

Übertrag (einmalige 


PRINT #2 AT(9 ; 15 )STRING$(67,) 


Eingab 


LABEL aw 

INPUT #2 AT(15;17)"Auswahl ",auswahl$ 

IF auswahl$="10" THEN GOTO kover 

IF auswahl$="20" THEN GOTO kodru 

IF auswahl$="30" THEN GOTO einsi 

IF auswahl$="40" THEN GOTO einld 

IF auswahl$="50" THEN GOTO sonst 

IF auswahl$="100" THEN GOTO anbes 

IF UPPER$(auswahl$)="AUS" THEN GOTO ende 

IF auswahl$<>"10" OR auswah1 $<>"20" OR auswahl$<>" 

30" OR auswahl$<>"40" OR auswah1 $<>"50" OR auswahl 

$<>"100" OR UPPER$(auswahl$)<>"AUS" THEN st=2:GOSU 

B kz 

GOTO aw 

' ***************** Untermenue *************** 

LABEL kover 
CLOSE #3 
st = 3 

GOSUB fenster 

WINDOW #3 TITLE"Kontostandveränderungen" 

SCREEN #3 TEXT 
CLS #3 

WINDOW #3 OPEN 
STREAM #3 

PRINT AT(10;5)"10 Neue Eingaben" 

PRINT AT(10;7)"20 Eingaben verändern" 

PRINT AT( 10;9)"30 Eingaben löschen" 

PRINT AT(10;12)COLOR(7)"50 Zurück zum Hauptmenue 


PRINT AT(10; 14)STRING$(25,) 

LABEL awl 

INPUT AT( 15;16 ) "Auswahl : ",auswahl$ 

IF auswahl$="10" THEN GOTO neueingabe 

IF auswah1$="20" THEN GOTO eingabenverandern 

IF auswahl$="30" THEN GOTO eingabenlöschen 

IF auswahl$="50" THEN GOTO menue 

IF UPPER$(auswahl$)="AUS" THEN GOTO ende 

IF auswah1 $<>"10" OR auswahl$< >“20" OR auswahl$<>" 

30" OR auswahl $<'> "50" OR UPPER$ ( auswahl $)<> "AUS" T 

HEN st= 3:GOSUB kz 

GOTO awl 

END 

' *********** Einzelne Programme nacheinander *** 
*************** 


• ****** Monatlicher Übertrag 

LABEL anbes 
CLOSE #4 
St = 4 

GOSUB fenster 
SCREEN #4 TEXT 
WINDOW #4 OPEN 
CLS #4 
STREAM #4 

WINDOW TITLE "monat1icher Übertrag" 
IF monat$< >"" THEN GOSUB monat 


CLEAR:eingabe=999 
DIM buchung$(eingabe) 

DIM sh$(eingabe) 

DIM bet rag(e1ngabe) 

DIM datum$(e1ngabe) 
wei =1 

wieviel=wei 
OPTION DECIMAL 
OPTION DATE 1, " . ” 

w$=" > Weiter mit Space-Taste < ” 

LABEL anbein 

PRINT AT(39;5)STRING$(20, "):PRINT AT(39;7)STR ING 
$(20, "):PRINT AT(39;9)STRING$(20, ") 

INPUT AT( 10;5)"voriger Monat : ".rnona 

t$ 

INPUT AT(10;7)"<S>ol1 oder <H>aben : ",soha 

$ 

INPUT AT(10;9)"Guthaben bzw. Lastschrift : ”,gula 
be = 0 

IF gula>99999999.99 THEN GOSUB be_zu_lang 
IF be=1 THEN GOTO anbein 

IF UPPER$(soha$) = "S" OR UPPER$(soha$) = "H " AND gula 
<>0 THEN GOTO weiter ELSE GOSUB fehler :GOTO anbei 
n 

LABEL weiter 
REPEAT 

PRINT AT(22;14)COLOR(12)"Ihre Eingaben sind regist 
r i e r t ! ” 

FOR w=l TO 2000:NEXT w 
UNTIL INKEY$=" " 

GOTO menue 

1 ********** neue Eingaben 

LABEL neueingabe 
CLOSE #4 
st = 4 

GOSUB fenster 
SCREEN #4 TEXT 
WINDOW #4 OPEN 
CLS #4 
STREAM #4 

WINDOW TITLE "Neue Eingaben" 

IF gu1a=0 THEN GOTO fehler_l 
ein=wei 

LABEL eingabe 
CLS 

PRINT AT(10;2)"Eingabe Nr.: ";wieviel 

INPUT AT(10;4)"Datum (TT.MM.JJ) : " ,d 

atum$(ein) 

dat=0 

IF DATE(datum$(ein))=0 THEN GOSUB datum_falsch 
IF dat=l THEN GOTO eingabe 

INPUT AT(10;6)"Buchungstext (max. 25 Buchst.): ”,b 
uchung$(ein) 
bu = 0 

IF LEN(buchung$(ein))>25 THEN GOSUB bu_zu_lang 
IF bu=1 THEN GOTO eingabe 

INPUT AT(10;8)"Betrag : ",b 

etrag(ein) 
be = 0 

bet rag(ein) = ROUND(betrag(ein) ,2) 

IF betrag(ein)>99999999.99 THEN GOSUB be_zu_lang 
IF be=1 THEN GOTO eingabe 

INPUT AT(10;10)"(S)ol1 bzw. (H)aben : ", 

sh$(ein) 
b = 0 

IF UPPER$(sh$(ein))="H“ OR UPPER$(sh$(e1n))="S" TH 
EN GOTO eingaben_ok ELSE GOSUB bu_falsch 
IF b=1 THEN GOTO eingabe 
LABEL eingaben_ok 

e1n=ein+1:wleviel=wiev1el+1:we1=we1+1 
IF ein>eingabe THEN PRINT AT(20;19)"Für diesen Mon 
at sind keine Eingaben mehr mögl1ch":IF INKEY$=" 
THEN GOTO menue 
LABEL weitere_eingaben 

INPUT AT(10;15)"Weitere Eingaben (J/N) ? ",a$ 

IF UPPER$(a$)="N" THEN GOTO kover 

IF UPPER$(a$) = "J" THEN GOTO eingabe ELSE GOSUB feh 
ler 

GOTO weitere_eingaben 

REM ************* Eingaben verändern ************* 
** 
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LABEL eingabenverändern 
CLOSE #4 
s t = 4 

GOSUB fenater 

WINDOW #4 TITLE "Eingaben verändern" 

SCREEN #4 TEXT 
WINDOW #4 OPEN 
STREAM «4 
CLS 

IF sa 1 dO=0 AND gu1a = 0 AND datum$(l)="" AND buchung 
$(1)="" THEN GOTO kein_datei ELSE GOSUB warnung_l 

LABEL aw2 
CLS 

PRINT AT(10;2)"Welche Eingaben sollen geändert wer 
den ?" 

PRINT AT(10;4)" 10 Buchungstext" 

PRINT AT(10;5)" 20 Buchung" 

PRINT AT(10;6)" 30 Betrag" 

PRINT AT(10;7)" 40 Datum" 

PRINT AT(10;9)COLOR(7)" 50 Zurück zum Hauptmenue" 
PRINT AT(10;11)"100 Obertragsbestand" 

PRINT AT(10;12)"110 Übertragsbuchung " 

PRINT AT(10 ; 13) "120 Übertragsmonat" 

PRINT AT(10;15)COLOR(7)"200 Zurück zum Untermenue" 
PRINT AT(10; 1 6)STRING$(30,) 

INPUT AT(14i 18) "Auswahl : " ,aw2 

IF aw2=10 THEN GOTO buchungstext 
IF aw2=20 THEN GOTO buchung 

IF aw2=30 THEN GOTO betrag 

IF aw2=40 THEN GOTO datum 

IF aw2=50 THEN GOTO menue 

IF aw2=100 THEN GOTO monats_ab 

IF aw2=110 THEN GOTO monats_bu 

IF aw2=120 THEN GOTO monats_mo 

IF aw2=200 THEN GOTO kover 

IF aw2 < >10 OR aw2<>20 OR aw2<>30 OR aw2<>40 OR aw2 
<>50 OR aw2 < >100 OR aw2<>110 OR wa2<>200 THEN st = 4 
: GOSUB kz 
GOTO aw2 

LABEL buchungstext 
CLS 

WINDOW TITLE “Eingaben verändern -> Buchungste 

xt" 

INPUT AT(5;2)"Weleher Buchungstext soll geändert w 
erden ? --> Nr. : ",nr 

IF buchung$(nr)="“ THEN GOTO keine_buchung 

PRINT AT(20;9)COLOR(7)"Aktue 11er Buchungstext - 

> “;buchung$(nr) 

INPUT AT(20;13)"Geänderter Buchungstext -> ",ne 

ubuchung$ 

IF LEN(neubuchung$)>25 THEN GOTO buchungstext 
buchung$(nr)=neubuchung$ 

GOTO registriert ' 

LABEL buchung 
CLS 

WINDOW TITLE "Eingaben verändern -> Buchung" 

INPUT AT(5;2)"Welche Buchung soll geändert werden 
? --> Nr. : ",nr 

IF sh$(nr) = "" THEN GOTO ke1ne_buchung 

PRINT AT(20;9)COLOR(7)“Aktuelle Buchung -> ";U 

PPER$(sh$(nr)) 

LABEL nochmal 

INPUT AT(20;13)"Geänderte Buchung -> ",neush$ 

IF UPPER$(neush$)< >"S" OR UPPER$(neush$ ) < > "H" THEN 
GOSUB fehler :GOTO nochmal 
sh$(nr)=neush$ 

GOTO registriert 

LABEL betrag 
CLS 

WINDOW TITLE "Eingaben verändern -> Betrag" 

INPUT AT(5;2)"We1 cher Betrag soll geändert werden 
? --> Nr. : ",n r 

IF betrag(nr)=0 THEN GOTO keine_buchung 

PRINT AT(2 0;9)CO LOR(7)"Aktueller Betrag -> ";b 

et rag(n r ) 

INPUT AT(20;13)"Geänderter Betrag -> ".neubetra 

9 

neubetrag=ROUND(neubetrag,2) 
be = 0 

IF neubetrag>99999999.99 THEN GOSUB be_zu_lang 
IF be=1 THEN GOTO betrag 
betrag(nr)=neubetrag 
GOTO registriert 
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LABEL datum 
CLS 

WINDOW TITLE "Eingaben verändern -> Datum" 

INPUT AT(5;2)"We1ches Datum soll geändert werden ? 
--> Nr. : ",nr 

IF datum$(nr)="" THEN GOTO keine_buchung 

PRINT AT ( 20 ; 9 ) COLOR (7)'*Aktuel les Datum -> ";da 

tum$(n r ) 

INPUT AT(20;13)"Geändertes Datum -> ",neudatum$ 

dat = 0 

IF DATE(neudatum$)=0 THEN GOSUB datum_falsch 
IF dat=1 THEN GOTO datum 
datum$(nr)=neudatum$ 

GOTO registriert 

LABEL monats_ab 
CLS 

WINDOW TITLE "Eingabe verändern -> Übertragsbe 

stand" 

PRINT AT(20;5)"Monat : ";monat$ 

PRINT AT(10;9)COLOR(7)"Aktue11er übertragsbestand 
-> " ; g u 1 a 

INPUT AT(10;13) "Geänderter Übertragsbestand 

-> ".neugula 

gu1a=neugu1a 
GOTO registriert 

LABEL monats_bu 
CLS 

WINDOW TITLE "Eingabe verändern -> übertragsbu 

chung" 

PRINT AT(20;5)"Monat : ";monat$ 

PRINT AT(10;9)COLOR(7)"Aktuel1e Übertragsbuchung 
-> " ;UPPER$(soha$) 

INPUT AT(10;13) "Geänderte Übertragsbuchung 

-> ",neusohaj 

soha$=neusoha$ 

GOTO registriert 

LABEL monats_mo 
CLS 

WINDOW TITLE "Eingaben verändern -> Übertragsm 

onat" 

PRINT AT(10;9)COLOR(7)"Aktue11er Übertragsmonat - 
--> ";monat$ 

INPUT AT(10;13) "Geänderter übertragsmonat - 

--> ",neumonat$ 

monat$=neumonat$ 

GOTO registriert 

REM *************** eingaben löschen ************* 
** 

LABEL eingabenlöschen 

CLOSE #4 

st=4 

GOSUB fenster 

WINDOW #4 TITLE "Eingaben löschen" 

SCREEN #4 TEXT 
WINDOW #4 OPEN 
STREAM #4 
CLS 

IF sa1do=0 AND gu1a=0 AND datum$(l)="" AND buchung 
$(1)="" THEN GOTO kein_datei ELSE GOSUB warnung_2 

LABEL aw3 
STREAM #4 

PRINT AT(10;5)" 10 Buchung löschen" 

PRINT AT( 10;6)" 20 Übertrag löschen" 

PRINT AT(10;9)COLOR(7)" 50 Zurück zum Hauptmenue" 
PRINT AT( 10;11)COLOR(7)"100 Zurück zum Untermenue" 
PRINT AT( 10; 12)STRING$(30,) 

INPUT AT(14;14)"Auswahl : ",aw3 

IF aw3=10 THEN GOTO buchung_lö 
IF aw3=20 THEN GOTO monats_bu_lö 
IF aw3 = 50 THEN GOTO menue 
IF aw3=100 THEN GOTO kover 

IF aw3 < >10 OR aw3 <>20 OR aw3<>50 OR wa3<>100 THEN 
st=4:GOSUB kz 
GOTO aw3 

LABEL buchung_lö 
CLS 

WINDOW TITLE "Eingaben löschen -> komplette Bu 

chung" 

INPUT AT(5;2)"We1 che Buchung soll gelöscht werden 
? — > Nr. : ",nr 
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IF datum$(n r) = "" AND buchung$(nr) = "" AND sh$(nr)=" 

" AND betrag(n r)=0 THEN GOTO keine_datei 
PRINT AT(20;6)COLOR{7)"Aktue1le Buchung 
IF betrag(nr)<0 THEN betrag(nr)=betrag(nr)*(-l) 
PRINT AT(1;8)CO LOR(2)"N r. AT(8;8)COLOR(2)"Datum" 

AT(20;8)COLOR(2)"Buchungstext" AT(47;8)COLOR(2)"< 5 
>o11 / < H > aben" AT(67;8)COLOR(2)"Betrag" 

PRINT AT(1;10)n r;". "; AT(8;10)datum$(nr) AT(20;10 
)buchung$(nr) AT(55;10)UPPERS(sh$(nr)) AT(60;10)US 

ING"##########.## DM betrag(nr) 

INPUT AT(20;13)"Schutzwort -> ".sc 

hutzwortS 

IF L0WER$(schutzwort$)<>"tkko1ö" THEN GOTO Zugriff 
_verweigert 
OPTION DATE 1,"." 
datum$(nr)=DATE$ 

buchungS ( n r ) = 11 ******* Gelöscht ********" 

sh$(nr)="" 

GOSUB gelöscht 
CLS:GOTO kover 

LABEL monats_bu_lö 
CLS 

WINDOW TITLE "Eingabe löschen -> Übertrag 

PRINT AT(20;5)"Monat : ";monat$ 

PRINT AT(20;7)COLOR(7)"Aktuelle Übertragsbuchung 
IF gu1a< 0 THEN gu1a = gu1a*(-1) 

PRINT AT(40;9)COLOR(2)"<S>oll / <H>aben" AT(62;9)C 
OLOR(2)"Betrag" 

PRINT AT(5;11)"Übertrag ";monat$ AT(48;11)UPPE 

R$(soha$) AT(55;11)USING"##########•## DM "igula 

INPUT AT(20;13)"Schutzwort -> ".sc 

hutzwort$ 

IF LOWERS(schutzwort$)<>"tkkolö" THEN GOTO Zugriff 

_verwe1gert 

soha$="":gu1a=0 

GOSUB gelöschtl 

CLS:GOTO kover 

• ********** Kontostand anzeigen 

LABEL kodru 
CLOSE #1 
st= 1 

GOSUB fenster 

WINDOW #1 TITLE"Kontostand drucken (Bi 1dschirm/Dru 
cker) " 

SCREEN #1 TEXT 
WINDOW #1 OPEN 
STREAM #1 

IF sa1do=0 AND gu1a=0 AND datum$(l)="" AND buchung 
$(1)="" THEN GOTO fehler_2 
GOTO auswahl 

LABEL ausgabe 
OPTION DATE 1, " . " 

CLS 
ei n=l 

PRINT AT(1;1)"Pos." AT(7;1)"Datum" AT(17;1)"Buchun 
gstext" AT(6 7;1)"Haben" AT(50;1)"So 11" 

PRINT AT(l;2)STRINGS(75,"-") 

PRINT AT(17;3)"Übertrag : ";monat$; 

IF UPPER$(sOha$)="S" THEN PRINT AT(46;3)USING"#### 
####.##";gu1a 

IF UPPER$(soha$)="H" THEN PRINT AT(63;3)USING"#### 

####.##";gula 

ein=l:wi evlel = 1:seite=l 


LABEL linie 

PRINT AT(32;l)COLOR(7)"Seite : ";seite 
FOR 1i n 1 e=5 TO 15 STEP 2 
PRINT AT( 1;1i nie)wievlel ; " . " 

PRINT AT(7;lin1e)datum$(ein) 

PRINT AT( 17 ;1i nie) buchungS(ein) 

IF buchungS(ein )=" ******* Gelöscht ********" AND 
datum$(e1n)=DATE$ AND sh$(ein)="" THEN betrag(ein) 
= 0 

IF betragfel n)<0 THEN be t rag ( e 1n )=be t rag(ei n )*(- 1 ) 
IF UPPER$(sh$(ein)) = " S " THEN PRINT AT(46; 1 i nie )US I 
NG"########.##";betrag(ein):GOTO next_lini e 
PRINT AT(63; 1inie)USING"########.##";bet rag(ein ) 

LABEL next_lin1e 
ein=ein+l:wievie!=wiev1el+l 

IF 1 1 n i e <16 AND betrag(ei n)< >0 THEN NEXT linie 



Vergessen Sie den grauen Alltag: Der FRAKTAL GENERATOR 3D ent¬ 
führt Sie in märchenhafte Landschaften voller bizarrer Formen und Far¬ 
ben. Werden Sie zu einem Forscher im Wunderland der Fraktale. Ent¬ 
decken Sie Welten, die vor Ihnen noch nie ein Mensch erblickt hat, und 
speichern Sie Ihre Erinnerungsfotos auf Diskette oder Festplatte, um 
sie später einem staunenden Bekanntenkreis vorzuführen... 


Die Fakten: Der FRAKTAL GENERATOR 3D ist... 

...unglaublich schnell: Nur 6 Minuten 30 Sekunden braucht der CPC, 
um das 'Apfelmännchen’ auf dem CPC als 3D-Landschaft darzustellen 
- Weltrekord für 8-Bit-Rechner! 

...farbenfroh: 10 gleichzeitig darstellbare Farben in MODE 1 durch 
eine trickreiche Mischtechnik. 

...vielseitig: Neben den Bildern der Mandelbrot-Menge ('Apfelmänn¬ 
chen’) erzeugt der FRAKTAL GENERATOR 3D auch die daraus abge¬ 
leiteten Julia-Mengen und liefert damit eine Vielzahl weiterer interes¬ 
santer Bildmotive. 

...komfortabel: Die Bedienung erfolgt konsequent über Pulldown- 
Menues. Die Bilder können auf Diskette/Cassette archiviert oder auf ei¬ 
nem Matrixdrucker im DIN-A4- oder DIN-A5-Format ausgegeben wer¬ 
den. Auf dem CPC 6128 hält der FRAKTAL GENERATOR 3D mehrere 
Bilder im Speicher, zwischen denen beliebig gewechselt werden kann. 
...flexibel: Zahlreiche einstellbare Parameter ermöglichen eine indivi¬ 
duelle Bildgestaltung: Beliebiger Blickwinkel horizontal/vertikal, vergrö¬ 
ßerte Ausschnitte per Auswahlrahmen, minimale/maximale Rechentie¬ 
fe, Höhenfaktor, Glättungsfunktion, Darstellung der Fraktale als Berg¬ 
oder Talstruktur mit oder ohne ’Hidden Line’-Algorithmus, usw. 



Autor: Matthias Uphoff 


Ein Meisterstück der Computergrafik, das in keiner Software¬ 
sammlung fehlen sollte - jetzt auch für den CPC, mit dem vol¬ 
len Leistungsumfang der PC-Version! 
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IF buchung$(ein)=" ******* Gelöscht ********" AND 
datum$(ein)=DATE$ AND sh$(ein)="" THEN betrag(eln) 
= 0:GOTO weite r_nu11 ELSE GOTO normal 
LABEL normal 

XF bet r ag(ein)=0 THEN GOSUB saldo:GOTO saldo_druck 
LABEL weiter_null 

PRINT AT(12;19)COLOR(12)"Weiter = 'W* / 

nde = 1 E' : " ;:INPUT " “,we$ 

IF LOWER$(we$)="w" THEN CLS:seite=seite+1:GOSUB üb 
erschrlft:GOTO llnle 

IF LOWER$(we$)<>"e" THEN GOTO weiter_nul1 ELSE GOT 
O menue 

LABEL saldo_druck 
sa1do=bet rag 

IF sa1do < 0 THEN farbe = 2 ELSE farbe=l 
PRINT AT(41;16)STRING$(35 , "-" ) 

PRINT AT(40;17)COLOR(färbe)" Saldo 

USING"444444444.44"; saldo 

REPEAT 

PRINT AT((80-LEN(w$))/2;19)COLOR(12)w$ 

FOR w=l TO 2000:NEXT w 
UNTIL INKEY$=" " 

GOTO menue 

' ************************** Eingaben sichern **** 
************* 

LABEL einsi 
CLOSE #4 
3 t = 4 

GOSUB fenster 
SCREEN »4 TEXT 
WINDOW *4 OPEN 
CLS #4 
STREAM «4 

WINDOW TITLE "Eingaben sichern" 

GOSUB warnung_3 

LABEL sichern 

INPUT AT(5;2)"Name : ”,namel$ 

INPUT AT(5;4)"Codenr.: ",codenummer1 

co = 0 

IF Codenummer 1>999999 THEN GOSUB code 

IF co—1 THEN GOTO sichern 

INPUT AT(5;6)"Monat : ",jmonat$ 

aufforderungl$="Datendi skette in Laufwerk 'B' einl 
egen 1 !•" 

PRINT AT((80-(LEN(aufforderungl$)))/2;8)COLOR(15)a 
ufforderungl$ 

REPEAT 

leerl$="> Leertaste <" 

PRINT AT((80-(LEN(leerl$)))/2;10)COLOR(4)1eerl$ 

FOR w=l TO 2000:NEXT w 
UNTIL INKEY$=" " 

wei=ein 
DRIVE "b" 

OPTION DECIMAL "."," " 

IF jmonat$="" THEN GOTO fehler sichern 

jmonat$=LEFT$(jmonat$,8) 

OPEN *5 OUTPUT jmonat$ 

PRINT 45,monat$ 

PRINT *5 , codenumme r1 
PRINT *5,saldo 
PRINT 45,namel$ 

PRINT 45,soha$ 

PRINT 45,gula 

PRINT #5,we1 

FOR w1ev=1 TO we1 -1 

PRINT #5,buchungS(wiev ) 

PRINT *5,sh$(wiev) 

PRINT #5,bet rag(wiev) 

PRINT #5,datum$(wiev) 

IF wiev<we1 -1 THEN NEXT 
CLOSE *5 

PRINT AT(30;15)"Ihre Daten sind gesichert" 

FOR w=l TO 2000 
NEXT 

GOTO menue 

**********************„,*„ Eingaben 1aden ****** 

*********** 

LABEL einld 
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CLOSE #4 
st = 4 

GOSUB fenster 
SCREEN #4 TEXT 
WINDOW #4 OPEN 
CLS #4 
STREAM 44 

WINDOW TITLE "Eingaben laden" 
GOSUB warnung_4 


LABEL laden 
INPUT AT(5;2 ) "Name 
INPUT AT(5 ; 4)"Codenr. : 


" , na$ 

" , code 

INPtlT AT f 5 ; 6 ) " Von welchem Monat wollen Sir- Daten ? 
, jmonat$ 

aufforderung2$="Datend1skette in Laufwerk 'B' einl 
egen I! 1 " 

PRINT AT((80-(LEN(aufforderung2$) ))/2; 8)COLOR<15)a 
ufforderung 2 $ 

REPEAT 

leer2$="> Leertaste <" 

PRINT AT((80-(LEN(leer2$)))/2;10)COLOR(4)1eer2$ 

FOR w=l TO 2000:NEXT w 
UNTIL INKEY$=" " 

LABEL ld 
DRIVE "b" 

OPTION DECIMAL " 

jmonat$=LEFT$(jmonat$,8) 
rc = OPEN 45 INPUT jmonatj 
IF rc > 0 THEN GOTO fehler laden 
INPUT #5,monat$ 

INPUT 45 , Codenummer 1 
INPUT 45,saldo 
INPUT 45,namel$ 

INPUT 45,soha$ 

INPUT 45,gu1a 

INPUT 4 5,we1 

FOR wiev = l TO we1 -1 

INPUT 45,buchung$(w1ev) 

INPUT 45,sh$(w1ev) 

INPUT 45,betrag(wiev) 

INPUT 45,datum$(wiev) 

IF wiev<wei-l THEN NEXT 
CLOSE 45 

IF na$Onamel$ OR code< >codenummer 1 THEN GOTO date 
i_nicht_er 1 aubt 
FOR ein=l TO wei-1 

IF betrag(ein)<0 THEN betrag(e1n)=betrag(e1n)*(-1) 
IF ein<wei-1 THEN NEXT 

PRINT AT(30;15)"Ihre Daten sind geladen" 

FOR w=l TO 2000:NEXT 
ein=we1 

IF jmonat$="Septembe" THEN jmonat$="September" ELS 
E jmonat$=jmonat$ 

GOTO menue 

*************** Druckerausgabe ************* 

LABEL drucker 
OPTION DATE 1 ,"." 

CLOSE 44 
st=4 

GOSUB fenster 
SCREEN 44 TEXT 
WINOOW 44 OPEN 
STREAM 44 

WINDOW TITLE "Ausgabe auf Drucker" 

CLS 

INPUT AT(5;2)"Name : “,name$ 

INPUT AT(5;5)"Codenr . : ",code 

co = 0 

IF code >999999 THEN GOSUB code 
IF co=1 THEN GOTO drucker 

PRINT AT(30;12)COLOR(7)"Druckprogramm läuft" 

LPRINT CHR$(27)+"1"+CHR$(7) 

LPRINT CHR$(27) + "Q"-+CHR$(70) 

LPRINT CHR$(27)+"C"+CHR$(60) 

LPRINT CHR$(27)+"N"+CHR$(14) 

LPRINT CHR$(27)+"3"+CHR$(50) 

esc$=CHR$(27) 

de$=esc$+"G" 

da$=esc$+"H" 

fette$=esc$+"E" 

fetta$=esc$+"F" 

nlqe$=esc$+"xl" 

nlqa$=esc$+"xO“ 
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LPRINT de$ + fette$ +"K ONTOAUSZUG: " + fetta 
$ + da$ 

IF UPPER$(jmonat$)="SEPTEMBE" THEN jmonat$="Septem 
ber“ 

LPRINT:LPRINT "Monat : ";jmonat$; 

LPRINT TAB(45)"Datum : DATES 

LPRINT:LPRINT:LPRINT "Name : ";name$; 

LPRINT TAB(45)"Coden r. : ";code 

ei n=0 

LPRINT 

LPRINT nlqe$+"Datum"; 

LPRINT TAB(15)"Buchungstext"; 

LPRINT TAB(48)"Betrag"; 

LPRINT TAB(61)"S/H"+nlqa$ 

LABEL 11nie_l 
ein = e1n+ 1 

LPRINT datum$(ein) ; 

LPRINT TAB(13)buchung$(ein) ; 

IF betrag(ein)<0 THEN betrag ( ei n) = betrag(ein)*(-1 ) 
LPRINT TAB(42)USING"########.##";betrag(ein ) ; 
LPRINT TAB(60)UPPER$(sh$(ein)) 

IF datum$(ei n+1) = 11 “ AND buchung$ ( e i n+ 1) = " " AND bet 
rag(ei n+I)=0 AND sh$(ei n + 1) = "" THEN GOTO saldo ELS 
E GOTO 11nie_l 
LABEL saldo_drucker 
LPRINT:LPRINT 

LPRINT TAB(25)"Übertrag-> ";monat$LPRINT TAB( 

49) ": ";USING"########.##";gula 

LPRINT T AB ( 30) " Alter Kontostand : USING"####*# 

### .##";sa1do 
saldo=betrag 
LPRINT fette$+de$; 

LPRINT TAB(30)" Neuer Kontostand : ";USING"#### 

#####. ;saldo 

LPRINT fetta$+da$+CHR$(13) 

GOTO menue 


fTS* HANNOVER MESSE 

EjGeBIT'89 

Weh-Cent rum Büro ■ Information -Telekommunikation 

8.-15. MÄRZ 1989 


Vom 8. bis 15. März 1989 
finden Sie DMV und 
Redakteure 
der PC Amstrad 
in Halle 7. Stand E 50. 

Auf Wiedersehen in Hannover! 


■ ********************* Sonstiges **************** 
*** 


( LA3EL sonst 
| CLOSE »4 
I st=4 

GOSUB fenster 
SCREEN #4 TEXT 
WINDOW #4 OPEN 
STREAM #4 

WINDOW TITLE "Sonstiges" 

CLS 

ALERT 1 TEXT "Hier können Sie nach be11 ebendas 
Programm erweitern.","Vie1 Spaß und gute Einfälle 
wünscht"," Tina Kaiser " BUTTON RETURN " 

Zurück " 

GOTO menue 

1 **************** LABELS **************** 

LABEL saldo 
e1n=l 

LABEL saldO_l 

IF UPPER$(soha$)="S" THEN gula=-gula 

IF UPPER$(sh$(ein))="S" THEN betrag(ein)=-betrag(e 

ln) 

betrag=gula+betrag(ein) 

LABEL saldo_2 
ei n = e1n+1 

IF UPPER$(sh$(ein))="S“ THEN betrag(ein)=-betrag(e 
ln) 

betrag=betrag+betrag(ein) 

IF buchung$(ein)="" AND datum$<>DATE$ AND betragte 
in) =0 THEN GOTO entscheidung ELSE GOTO saldo_2 

LABEL entscheidung 

IF auswahl=l THEN GOTO saldO_druck 
IF auswahl=2 THEN GOTO sa1do_drucker 

LABEL überschrift 

PRINT A T < 3;1)"Datum":PRINT AT(17;1)"Buchungstext": 
PRINT AT(32;I)COLOR(7)"Seite : ";seite:PRINT AT(67 

; 1) "Haben":PRINT AT(50;1)"So 11 " 

PRINT AT(1;2)STRING$(75," — " ) 

RETURN 

LABEL datei_ni cht_er1aubt 

ALERT 1 TEXT "Date1zugr1ffsrechte " ," fehl 

en " BUTTON RETURN " Weiter " 
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GOTO menue 

LABEL fehler_siehern 

ALERT 2 TEXT "Es sind keine Eingaben vorhanden" , " s 
omlt kann auch n 1 chts","gesichert werden." BUTTON 
RETURN " Weiter " 

GOTO menue 

LABEL fehler_laden 

ALERT 2 TEXT "Die Datei " + UPPER$(monat.$) , "wurde ni 
cht gefunden"Zurück zum Hauptmenue" BUTTON RETU 
RN " Weiter " 

GOTO menue 


st gewünschte Datei laden !!!' BUTTON RETURN " Wei 
te r "," Laden " 

IF 1aden= 1 THEN RETURN 
IF 1aden=2 THEN GOTO einld 

LABEL warnung_2 
1 öschen =0 

1öschen=ALERT 1 TEXT "Achtung !!!","Es werden imme 
r die aktuel1en"Daten gelöscht "."Also : Zu 

erst gewünschte Datei laden !!!" BUTTON RETURN " W 
eiter " ," Laden " 

IF löschen = 1 THEN RETURN 
IF löschen = 2 THEN GOTO einld 


LABEL kz 

PRINT »st AT(10;19)COLOR(4)"Zugriffsrechte fehlen" 
RETURN 

LABEL zugriff_verweigert 

ALERT 1 TEXT "Zugriff verweigert !!!"," "."Schutzw 
Ort falsch !!!" BUTTON RETURN " Weiter " 

GOTO kover 

LABEL fehler 

ALERT 1 TEXT "Ihre Eingaben","entsprechen nicht"," 
der Aufforderung" BUTTON RETURN " Weiter " 

RETURN 

LABEL fehler_l 

ALERT 1 TEXT "Es können keine","neuen Eingaben gern 
acht werden,","wenn kein Über-”,"trag gegeben Ist 
!!!" BUTTON RETURN" Weiter " 

GOTO menue 

LABEL fehle r_2 
1 aden=0 

laden=ALERT 1 TEXT "Es ist keine Datei geladen" ," 
"."Bitte zuerst gewünschte Datei laden !!!" BUTTON 
RETURN " Laden Zurück " 

IF 1aden=1 THEN GOTO einld 
IF 1aden=2 THEN GOTO menue 

LABEL datum_falsch 
dat=l 

ALERT 1 TEXT " Die Oatumse1ngabe ist falsch: 
Falsches Format oder 

unrealistisches Datum " BUTTON RETURN " Wei 
ter " 

RETURN 

LABEL bu_zu_lang 
bu = 1 

ALERT 1 TEXT " Der Buchungstext ", " ist zu lang 

" BUTTON RETURN " Weiter " 

RETURN 

LABEL be_zu_lang 
be= 1 

ALERT 1 TEXT " Der Betrag ist zu groß ! 

höchster Betrag = 99999999.99" BUTTON RETURN 

" Weiter " 

RETURN 

LABEL bu_falsch 
b= 1 

ALERT 1 TEXT " Die Buchung kann nur (s)oll ode 

r (h)aben sein !! " BUTTON RETURN Weit 

er " 

RETURN 

LABEL kein_datei 
1 aden=0 

laden=ALERT 1 TEXT "Es können keine","Eingaben gea 
ndert bzw, '' , "gelöscht werden, da keine" , "Datei gel 
aden ist." BUTTON RETURN Zurück Laden " 

IF 1aden= 1 THEN GOTO kover 
IF 1aden=2 THEN GOTO einld 

LABEL keine_buchung 

ALERT 1 TEXT " "."Keine Buchung vorhanden"," " BUT 
TON RETURN " Zurück " 

GOTO aw2 

LABEL warnung_l 
1 aden =0 

laden = ALERT 1 TEXT "Achtung !!!","Es werden immer 
die aktuel1en","Daten geändert !"," "."Also : Zuer 


LABEL warnung_3 
sichern =0 

siChern=ALERT 1 TEXT "Achtung !!!"," "."Sollen Ihr 
e Eingaben gesichert werden " BUTTON RETURN 

Ja "," Nein " 

IF sichern=l THEN RETURN 
IF sichern=2 THEN GOTO menue 

LABEL warnung_4 
1aden=0 

laden=ALERT 1 TEXT "Achtung !!!"," "."Soll eine Da 
tei geladen werden " BUTTON RETURN " Ja N 

ein " 

IF 1aden=l THEN RETURN 
IF 1aden=2 THEN GOTO menue 

LABEL monat 
monat=0 

monat=ALERT 1 TEXT "Achtung !!!","Es ist schon ein 
"."Übertrag "."eingetragen " BUTTON RETURN " Wei 
ter "," Zurück " 

IF monat=1 THEN RETURN 
IF monat=2 THEN GOTO menue 


LABEL registriert 
REPEAT 

reg$=" Ihre Änderungen sind registriert 
PRINT AT({80-LEN(reg$))/2;19)COLOR< 4)reg$ 

FOR w=l TO 2000:NEXT w 
UNTIL INKEY$=" " 

CLS:GOTO aw2 

LABEL gelöscht 
REPEAT 

PRINT AT(17;19)COLOR<4)" Ihre Buchung Nr. ";nr;" w 
urde gelöscht !!!" 

FOR w=l TO 2000: NEXT w 
UNTIL INKEY$=” " 

RETURN 

LABEL gelöschtl 
REPEAT 

PRINT AT(14;19 )COLOR( 4) " Ihre Übert r a g sbuchung vo 

m ";monat$;" wurde gelöscht !!!" 

FOR w=l TO 2000: NEX T w 
UNTIL INKEY$=" " 

RETURN 


LABEL auswahl 
auswahl=0 

auswahl=ALERT 2 TEXT " Ausdruck : BUTTON 

RETURN " Bildschirm ", Drucker " 

IF auswahl = 1 THEN GOTO ausgabe 
IF auswahl = 2 THEN GOTO drucker 

LABEL fenster 
OPEN »st WINDOW st 
WINDOW »st PLACE 1;1 
WINDOW «st FULL ON 
RETURN 

LABEL code 
co= 1 

ALERT 1 TEXT "Ihre Codenummer"," ist 2 U 

lang ! ! " BUTTON RETURN Weiter " 

RETURN 


LABEL ende 
ende =0 

ende=ALERT 2 TEXT "Achtung Sie beenden das P 

rogramm !"," "."Haben Sie alle Daten gesichert ?" 
BUTTON RETURN " ENDE Sichern Menue 

IF ende= 1 THEN CLEAR RESET:N EW 
IF ende=2 THEN GOTO einsi 
IF ende=3 THEN GOTO menue 
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Ordnung 

mit zwei BATCH-Dateien 

Hilfestellung bei Festplatten- 
Problemen 

Wer seine Festplatte gut organisiert hat, kennt das Problem, die in den ver¬ 
schiedenen Unterverzeichnissen befindlichen Programme ohne viel 
Aufwand zu starten. In dem vorhergehenden Artikel “Ordnung muß sein“ 
(PCI 11/88) wurde beschrieben, wie dies mit Hilfe von Batch-Dateien ohne 
Probleme geschehen kann. 


Leider ist das Erstellen dieser BATCH- 
Dateien ein wenig umständlich und 
nicht gerade sehr komfortabel. Leicht 
wird die Batch-Datei in der ROOT-Di- 
rectory (\) oder gar in einem fremden 
SUB-Directory erstellt, wo sie nicht 
hingehören. Des weiteren besteht die 
Gefahr, daß bereits eine Batch-Datei 
mit demselben Namen existiert und 
überschrieben wird, ln Listing 1 wird 
eine Batch-Datei vorgestellt, die fol¬ 
gende Funktionen aufweist: 

1. Automatische Erstellung einer BA TCH- 
Datei in dein dazugehörenden SUB- 
Directory BA TCH. 

2. Prüfung des angegebenen Dateina¬ 
men der Batch-Datei. 

3. Prüf mg auf das Vorhandensein des 
zu startenden Programmes. 

4. Entsprechende Fehlenneidungen 
bei falschen oder nicht korrekten 
Eingaben. 

5. Eingabe-Hilfen bei falschen Para¬ 
metern. 

Nach Ausführung dieser Batch-Datei, 
die den Namen < MF.BAT> erhalten 
sollte (MF steht für MakeFile), ist es 
ohne viel Aufwand möglich, eine 
Batch-Datei für jedes SUB-Directory 
zu erstellen und automatisch ein Pro¬ 
gramm zu starten. 

Die Erzeugung 
einer Batch-Datei 

Als Beispiel nehmen wir wieder das 
Textprogramm WORD (Sie können 
natürlich ein beliebiges Programm ein- 


setzen, achten Sie nur auf die korrekten 
Pfadnamen), welches unter dem Pfad 
“C: \ TEXTPRG \ WpRD“ zu finden 
sein sollte und mit dem Befehl WORD 
gestartet wird. 

Nun müssen zum Erstellen der Batch- 
Datei folgende Eingaben getätigt 
werden: 

C> MF \ TEXTPRG \ WORD SWORD 
WORD 

In dem SUB-Directory BATCH wird 
nun eine BATCH-Datei mit dem Na¬ 
men SWORD.BAT erzeugt. Bei Auf¬ 
ruf dieser Datei wird in das SUB-Di¬ 
rectory WORD unter TEXTPRG ge¬ 
wechselt und das Programm WORD 
gestartet. 

Listing 2 ist mit Listing 1 fast iden¬ 
tisch. nur das diesmal in das angegebe¬ 
ne SUB-Directory gewechselt wird, 
ohne ein Programm zu starten. 

Noch ein Tip für die Erstellung von 
Batch-Dateien durch das in Listing 1 
abgebildete Batch-Programm: 

Für Batch-Dateien, die ein Programm 
starten, empfiehlt es sich, ein "S" vor¬ 
anzustellen (SWORD für Starte 
WORD). 

Bei Listing 2 : Für Batch-Dateien, die 
in ein SUB-Directory wechseln, emp¬ 
fiehlt es sich, ein “U“ voranzustellen 
(UWORD für Unterverzeichnis 
WORD). 

Dies erlaubt eine Unterscheidung der 
einzelnen Dateien mit deren Funktion 
auf einen Blick und... es ist wieder ein 
Teil der gew onnenen Ordnung auf der 
Festplatte. 


Die Erklärung der Listings 

Nun aber zur Erklärung des BATCH- 
Programmes in Listing I (Listing 2 ist 
ja fast identisch). Sämtliche Zeilen, die 
mit REM beginnen, sind Kommentar¬ 
zeilen und haben keinerlei Auswirkung 
auf das ablaufende und erzeugende 
BATCH-Programm. Durch die Ab¬ 
fragen: 

IF “%/“= = ““ GOTO ERROJ 
1F “%2“ == ““ GOTO ERR02 
IF “%3“ == ““ GOTO ERR03 

w ird geprüft, ob alle nötigen Parameter 
an das Programm übergeben wurden. 
Fehlt ein Parameter, so wird in den ent¬ 
sprechenden Fehlerausgang verzweigt 
(ERR01.ERR02 oder ERR03). An¬ 
schließend w ird nun in das SUB-Direc¬ 
tory verzweigt, welches mit dem Para¬ 
meter I (%1) übergeben wurde. Dort 
findet die Prüfung statt, ob das mit Pa¬ 
rameter 3 (%3) übergebene Programm 
ausführbar ist. Dies geschieht mit den 
Abfragen: 

IF EXIST 7c 3 GOTO GOON 
IF EXIST 7c3. COM GOTO GOON 
IF EXIST 7c3.EXE GO TO GOON 
IF EXIST 7c 3. BA T GOTO ERR05 
GOTO ERR06 

Die erste IF-Anweisung wird nur dann 
zutreffen, wenn der Parameter 3 mit ei¬ 
ner Extension (Zusatz) eingegeben 
wurde. Hier kann dann keine "richti¬ 
ge“ Prüfung stattfinden, ob es sich hier 
um ein ausführbares Programm han¬ 
delt. Sollte der Parameter 3 ohne Zu¬ 
satz eingegeben worden sein, läuft er 
gleich in die nächsten IF-Anweisun- 
gen. Erst dort wird abgefragt, ob es 
sich um eine COM-. EXE- oder BAT- 
Datei handelt, denn nur diese Program¬ 
me sind ausführbar. Allerdings werden 
BAT-Dateien abgewiesen, da es zu 
Komplikationen kommen könnte. Das 
BATCH-Progamm verzweigt bei ei¬ 
nem solchen Fall in den Fehlerausgang 
ERR05. Sollte es kein Programm mit 
dem angegebenen Parameter 3 geben, 
wird in ERR06 verzweigt. Bei richtiger 
Eingabe werden die anderen IF-An- 
weisungen übersprungen und ab 
GOON im Programm fortgefahren. 
Nun w'ird in das SUB-Directory 
< BATCH > gewechselt, in dem alle 
Batch-Dateien zur Erquickung des En¬ 
vironments stehen sollten. Dort ge- 
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schieht die Erstellung des demnächst 
ausführbaren neuen BATCH-Program- 
mes. Dies wird mit der Ausgabeumlei¬ 
tung > und > > möglich. Als Beispiel 
wird die Textzeile “BITTE WAR¬ 
TEN“ mit Hille der Eingabe 

ECHO ECHO RITTE WARTEN > > 
%2.BAT 

in die neue BATCH-Datei geschrie¬ 
ben. Die Ausgabeumleitung > bedeu¬ 


tet, daß eine Datei, ob neu oder bereits 
existent, von vorne beschrieben wird. 
Anders bei > >. hier wird hinten an 
eine Datei angefügt. 

Am Ende befinden sich dann noch die 
Fehlerausgänge und die Hilfestellung, 
die im Bedarfsfall am Bildschirm aus¬ 
gegeben werden. 

Es gibt noch folgende zwei Punkte zu 
beachten: 


1. Auf der Festplatte muß ein SUB- 
Directory <BATCH > existieren. 


2. ln der AUTOEXEC.BAT muß der 
Pfad um das SUß-Directory 
< BATCH > erweitert sein (PATH 
C: \ BATCH). 


(Ralph Rinschen/jb) 


rem *** 8atch-Programm zum Erstellen eine 
rem *** In ein bestimmtes Directory wechs 
rem »** Programm zur Ausführung bringt, 


Batch-Date I , dlo 


Zunächst wird die Vollständigkeit oer 
jberprüft und ggf. mit Fehlermeldung 


Des we'te 


id dann eir 


Parameter 1 eiste 
ibgebrochen. 


rem 

rem 

rem 

rem 


rtrd geprüft, ob das ausführbare Programm (X3) 
ln dem angegebenen Dlroctory vorhanden Ist. Wenn nicht, »In 
mit Fehlermeldung abgebrochen. (Batch-Dateien werden ebenfalls 
mit Fehler abgewiesen, wenn diese mit Extension BAT eingegeben 
werden I) 


'** Autor 


R. Rinsche 


Setzt den Pfad fest 

Setzt den Namen der Batch-Datei fest 


Setzt 


e-Namen fe- 


»a rten 


rem •** Parameter 1 
rem •** Parameter 2 
rom • »* Parameter 3 
cls 

1f "XI" == "" goto ERR01 
if " X2" =■= "• goto ERR02 
if "X3" == "" goto ERR03 
echo Prüfung läuft ... Bitte 
cd XI 

If ex ist X3 goto GOON 
If exist X3.com goto GOON 
if exlst X3.exe goto GOON 
If exlst X3 bat goto FRR05 
goto ERRD6 
:GOON 

echo Wechsel In BATCH-DI 
echo Bitte warten 
cd öbatch 

echo Datei wird angelegt .. 

If exist X2.bat goto ERR04 
ocho echo off > X2.bat 
echo cls >> X2.bat 
echo echo Wechsel In Directory 
echo echo Bitte warten >> X2.b 
echo cd XI >> X2.bat 

echo echo Programm X3 wird gestartet >> X2.bat 
echo X3 >> X2.bat 
echo c18 >> X2.bat 

echo echo Programm X3 Ist beendet >> X2.bat 
echo Batch-Datei wurde mit Namen X2.BAT angelegt. 


:tor 


läuft 


XI läuft 


:ho 


ilcht angegeoen 


goto ENDE 
:ERR01 

rem «** ERROR 01 -- Pfad wurde 
echo *«*****»»***«**•*.•«««*»«« 
echo ««* FEHLER »«* 

echo - - - 

echo »*» Es wurde kein Pfad »«• 
echo *** «Ingogeben • *■ 

echo •**•»**•»*»**•*«*•*»•<■«»*•**»*, 
goto HENDE 
ERR02 

rem *** ERROR 02 — Dateiname für Batch-Datei fei 
echo 

echo FEHLER *»* 

echo *«• --- *•* 

echo »*■ Es wurde kein Datei- *«* 

echo *** Name eingegeben *«» 

echo **»•**■********«***.»«.*«»***». 
goto HENDE 
:ERR03 

rem «»» ERROR 03 — Programm-Name zum Starten fei 
echo *******•***•**•*»»•*«**•*«,.»,, 
echo •** FEHLER •»* 

echo »»*-- ----- ... 

echo *•* Es wurde kein Prg.- «»* 

echo *** Name eingegeben #»* 

echo *•■*»»*»«•*»•»«••«**»*»«•»»•»«• 
goto HENDE 
: ERR04 

rem *»* ERROR 04 -- Batch-Datei mit selben Namen 
echo •»«****«***»•«»**«*»»*«•*«»*.*» 


echo 

echo 


FEHLER 


echo *•* Batch-Datei bereits 
echo *** vorhanden 

echo *•»*****«***•»*»*»«»****» 
goto ENDE 
:ERR05 

rem ERROR 05 — 
echo •**«•»*•**«»*«*.<»*»»*»». 
echo ••• FEHLER 

echo ••* - 

echo *•* Prg.-Name ist eine 
echo ••* BATCH-Datei 


ogramm-Name Ist BATCH-Date 


echo *•«***«*»«•***»••*»»•*»*«»*•*,* 
goto ENDE 
:ERR06 

rem **• ERROR 06 -- Programm-Name nicht gefunden 
echo *•****•****■*«*..*,**»*,*,,,,,,, 


echo **» FEHLER *** 

echo --».* 

echo **• Prg,-Name wurde nicht *•* 
echo gefunden *»* 


echo • ****•»•****.»*.*«**»*,*.,,,,*,» 
goto ENDE 
.HENDE 

rem Hilfestellung bei falscher Pa»ameter1e1ste 

echo , 

echo Bitte folgende Eingabe-Reihenfolge beachten 
echo . 

echo 1. Pfad-Namen angebon (ab 0 als Root-Directory) 

echo 2. Dateiname zum Sichern (ohne Zusatz) 

echo 3. Programm-Name zum starten 

echo _____ 

: ENDE ~ -- 

echo BATCH-Verarbeltung Ende 


echo off 

rem «»* Batch-Programm zum Erstellen einer Batch-Datei, die 
rem **« in ein bestimmtes Directory wechselt 
rem *«* 

rem *»* Zunächst wird ole Vollständigkeit der Paramete'Ieis te 
rem *** überprüft und ggf. m-t Fehlermeldung abgebrochen 


rem **» Autor R. Ringchen 
rem **• 

rem *** Parameter 1 : Setzt den Pfad fest 

rem »«• Parameter 2 ; Setzt den Namen der Batch-Datei fest 
cls 

1f "XI" «* "" goto ERR01 
1 f " X2 " =■= •••■ goto ERR02 

echo Wechsel ln BATCH-Directory läuft ... 
echo Bitte warten 
cd Obatch 

echo Datei wird angelegt 
If exlst X2.bat goto ERR03 
echo echo off > X2.bat 
echo cls >> X 2 .bat 

echo echo Wechsel In Directory ; XI läuft ... >> X2.bat 

eeno eeno Bitte warten >> X2.bat 
echo cd XI >> X2.bat 
echo cls )> X2.bat 

echo Batch-Datei wurde mit Namen X2.BAT angelegt. 

ocho - 

goto ENDE 
:ERR01 

rem *«* ERROR 01 -- Pfad wurde nicht angegeoen 
echo •*»***««**»*»»••*•*»»*»*.»•»*,* 


echo »»» FEHLER *•* 

echo ***-*** 

echo »»* Es wurde kein Pfad *** 
eeno *** elngogoben **» 


echo *•*»**»»■*■»«**»**»»•**.*»*«,*„ 

goto HENDE 
:ERR02 


rem «»* ERROR 02 — Dateiname für Batch-Datei fehlt 

echo **•******»**»***«!•*»*,.*■*«»*,»* 


ocho *** FEHLER *»* 

echo - - - 

echo »»* Es wurae kein Datei- »** 
echo ■ ** Name eingegeben *»* 


echo *****>»•**•*»»*>*»**•«•«**••»*> 
goto HENDE 
:ERR03 

rem *** ERROR 03 — Batch-Datei mit selben Namen 
echo *»**»**»*****•♦***»»**»«*«.*»*« 
echo **» FEHLER **• 

echo *"*-- 

echo *** Batch-Datei bereits **• 
echo **« vorhanden *«* 

echo *****»********•****•***»»*«*»** 

:HENOE 

rem *** Hilfestellung bei fa'scher Parameter 1 eI ste 
echo 

eeno Bitte folgende EIngabe-R«|henfo1 ge beachten 
ocho . 

echo 1, Pfad-Namen angebon (ab ö als Root-Oirectory) 

aeh0 2. Dateiname 2 um Sichern (ohne Zusatz) 

echo _ 

: ENDE _ ~ 

echo BATCH-Verarbeltung Ende 


98 PC 2’89 

- 






































NEU: 


Biete an Software 


Dias ordnen mit Computer 

CPC 464/66416128, JOYCE und PC 
bis zu 100.000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 

Birnenweg 6, 7060 Schorndorf 

Tel: 07181/42846 G 


Astrologie mit Computer 

International geschätzte Astro¬ 
logenprogramme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2,- in Marken. 

Astron, K. W. Bonert, Peter-Marqu.-Str.4a 
2000 Hamburg 60 G 


Lohn- Einkommensteuer, Miet- Lasten¬ 
zuschuß, Rentenber./Beamtenversorgung 
H-I-SOFTWARE, Niederfelderstr. 44, 

8072 Manching, T. 084 59/16 69 G 


Wirtschaftliche Programme 
für die Arztpraxis auf 

dem Schneider CPC, Joyce, PC 
Fa. EFFEKTA, AmWiggert9c, 

4500 Osnabrück, 05 41-44 2416 G 


Blindschreiben mit 10 Fingern 

mit Programm TIPFIT, 700 Stunden 
Entwicklungszeit, getestet von 80 Personen, 
incl. 40seit. Handbuch für DM 40,-. 

Nur für IBM-kompatible Computer, 
Massenlizenzen für Schulen, nicht 
kopiergeschützt. 

Informationen von 
Computer Service Tip, 

Postfach 1241, D-7972 Isny G 


CPC-PROGRAMM FÜR LEHRER 
Schülerverwaltung - verwaltet 
Schüler/Elternadressen, ver¬ 
waltet Unterrichtsfächer, berechnet 
Noten/Punkte, druckt Etikettenlisten, 
neues Schuljahr wird automatisch 
angelegt. Info: 

0 28 01/23 07, ab 17.30 Uhr 


Bäckereiprogramm für CPC 6128 
Schreibt Rechnungen + Lieferscheine 
für 16 Kunden + Filialen. 

Verwaltet Bestand und Retouren, 
erstellt Backzettel + Rezepte. Info von 
B. Abels, Scharhörnstr. 10, 

2956 Moormerland 


Klassen-Noten-Punkteverwaltung 

praxisnah, alle Klassen/Fächer 
Schnittberechnung / Gewichtung 
Listendruck und Bildschirmanz. 
Notenspiegel, einf. Menübedien. 

CPC, JOYCE ausf. Info 130 Porto. 
Außerdem für JOYCE-PCW: 
komf. kompl. Vereinsverwaltung 
einschl. Lastschrifteinzug usw. 

Claus Bernhold, Rommeistraße 31, 
8783 Hammelburg 


Verkaufe für JOYCE: 
Star-Base/Star-Mail/Datei-Star 
(Master + Duplikat) und Etatgraf 
Tel. 061 21/508377 


Orig. JOYCE: DMV-PROGS Vol 1 (40 DM) 
+ 2 (30 DM), ZS Soft GCPM + Dicty S 
ET DE/ED (je 70 DM), 02 28/25 70 21 


WAHNSINN!!! 

CPC-Original-Software ab 3 DM 
bei: Dieter Köhler. Brandstätterstraße 26, 
8501 Cadolzburg 


JOYCE-ZUBEHÖR: Original Batman, 
Assem.Pak. (PD), Joystick + 

Interface, CP/M + Anw.-Handbuch, 
Progr. L, Z80 (Sybex-Verlag). 

Komplett DM 150,-. Tel. 04393/1713. 
ab 19.00 Uhr 



Heißer Draht 

jetzt 

mit Durchwahl! 


STAR-WRITER 1 + Ersatz + Buch 
80.- DM, 0 25 62/207 21 


Haben Sie Fragen, die nicht warten können? Dann 
rufen Sie uns an! Unser Leser-Telefonservice steht 
Ihnen 


Microsoft Multiplan. dBase II und 
Wordstar für CPC6128 zusammen 
450.- DM VB. T. Wiedemuth, 
5828 Ennepetal 1,02333/73396 


SCHNEIDER CPC 6128 - SOFTWARE 

Sparen per Computer 

durch statistische Überwachung aller 

Konten, 3-DISK 89 DM. zzgl. NN-Geb. 

oder Info per Freiumschlag 

K-H Ruhe, Alter Lingener Damm 9. 

4440 Rheine, Tel: 05971/8 56 87 


CPC & JOYCE PUBLIC DOMAIN 

Ein Info ist für 2 x 100 Pf erhältlich 
PDI, Pf 1118, D-6464 Linsengericht G 


Deutsche Freiprogr. IBM/Kompatible- 
Liste 1,50 DM. Krimkowski, 

Försterstr. 31.5000 Köln 30. v. privat 


Für Schneider PC 1512/1640! 

31 Matheprogramme für Kl. 5-10! 
Teilweise Grafik! Über 200 K! 

Nur 50 DM! / Info kostenlos! 
Schäfer. PF 7222. 4800 Bielefeld 1 


jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redakteur jetzt direkt unter einer 
Durchwahlnummer. Auf Ihren Anruf freuen sich: 

Claus Daschner (CPC) 

(0 56 51) 80 09 - 16 

Jürgen Borngießer (CPC, PC) 

(0 56 51) 80 09 - 17 

Ralf Schößler (PCW) 

(O 56 51) 80 09 - 18 

Achtung: Die in früheren Heften veröffentlichte 
Sammelnummer ist ab sofort ungültig - diese 
Nummer bitte nicht mehr anwählen! 


-CPC-Platinenservice - nur solange Vorrat reicht- 


PD-SOFTWARE für CPCs, Liste 
gegen 80 PI. bei: Peter Breuker, 

Rektenstr. 10,4930 Detmold 1 G 


Lohn-/Einkommensteuer 1988 

nur für PC. Alle Einkünfte, einfache 
Bedienung, trotzdem sehr leistungsfähig 
Preis 70 DM, Demo-Disk 5 DM. 

K. Bockermann, Drosselweg 9, 

4901 Hiddenhausen, Tel. 05221/64924 G 


Lohn- und Einkommensteuer 1988 

Druckerausgabe + Datensicherung. 
Ausführliche Anleitung. Info 1,50 DM. 

3-Disk für CPC 79,- DM + VP. Versand 
gegen Vorkasse oder NN. 89er-Aktuali- 
sierung 20.- DM. S. Teurich, 

Mesternstraße 6,4952 Porta Westfalica G 


Public Domain & Free-Software. 
IBM/Schneider PC und Kompatible. 

Disk, ab DM 1,80 - Gratiskatalog 

5650 Solingen 1, Tel. 0212/43140 G 


DESK-TOP-PUBLISHER 

Einstieg zu Ihrem eigenen Schreibtisch¬ 
verlag. Für alle CPCs ohne Speichererwei¬ 
terung für nur 29,50 DM. 

Alle Page-Editor-Funktionen in DIN-A5-For- 
mat-Handzettel. Ein Spitzenprogramm in 
WYSIWYG-Technik. Leicht zu bedienen, 
mit ausführlichem deutschen Handbuch. 
3-Disk o. Kassette nur 29,50 DM + 

6,50 DM Vers./Verpackung. Scheck o. NN 
+ Gb. R. Kontny, Weiler Str. 17 c, 

5040 Brühl G 


PD-SOFTWARE ab 2,- DM 
Auf 3,5- u. 5.25-Disk, Kat-Disk gratis. 
Tel. 078 52/15 68 


Platinen-Sets, 
komplett bestückt 

V/24-Platinen-Set 

kompl., funktionsfertig, 
bestehend aus: 

Anleitung 

1 Diskette mit Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 V/24 Platine bestückt 
Best.-Nr.: 501 

Set-Preis nur 199,-DM' 

Netzteilplatinen-Set (ohne Trafo) 
kompl., funktionsfertig, 
mit Anleitung 
Best.-Nr.: 502 

Set-Preis nur 99,- DM* 

Echtzeituhrplatinen-Set 

kompl., funktionsfertig, 
bestehend aus: 

Anleitung 

1 Diskette Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 Echtzeituhr-Platine bestückt 
Best.-Nr.: 503 

Set-Preis nur 149,- DM* 

EPROM-RAM-Platinen-Set 

kompl., funktionsfertig 
bestehend aus: 

Anleitung 

1 Diskette Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 EPROM-RAM-Platine bestückt 
Best.-Nr.: 512 

Set-Preis nur 199,- DM’ 


— DMV-Verlag ■ 


Centronicsplatinen-Set 

kompl., funktionsfertig, 
bestehend aus: 

Anleitung 

1 Diskette Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 Centronicsplatine bestückt 
Best.-Nr.: 511 

Set-Preis nur 129,- DM' 


Platinen, unbestückt 

Zu jeder unbestückten Platine er¬ 
halten Sie eine komplette Anlei¬ 
tung. 

Centronicsplatine 

einseitig beschichtet 
Best.-Nr.: 507 nur 15,-DM* 

Netzteilplatine 

einseitig beschichtet 
Best.-Nr.: 508 nur 15,- DM’ 

Echtzeituhr 

beidseitig beschichtet 
Best.-Nr.: 509 nur 15,- DM’ 

MIDI-Interface und Timer- 
Platinen 

Best.-Nr.: 510 nur 29,- DM' 

'Unabhängig von der Anzahl der 
bestellten Artikel berechnen wir für 
das Inland 3,- DM bzw. für das 
Ausland 5,- DM Porto und Ver¬ 
packung. Bitte benutzen Sie die 
Bestellkarte. 
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[—Kleinanzeigen 


CPC-Textomat, Dalamat und Pro-Design 
(alles Orig.) 04184/7046 


STEUERMAT 

Lohn- und Einkommensteuer 88: 

Ausdruck direkt aufs Formular, 

Analyse, alle Einkünfte, 89,- DM 

FORMULARPRINT 

Formularbearbeitung, 40,- DM 

FIBUMAT 

Einnahme/Überschuß-Rechnung, 
Kassenbuch, Ergebnisabr., 172,- DM 
Für JOYCE u. IBM-PC: 5,25 " u 3,5“ 
Demo: 15.-, Info: 80 Pfg. RP 
FFSW, Farin, Elisabethstr. 65 
4460 Nordhorn, T: 05921/13757 G 


varDAT II für dBASE II 
varDAT 111+ für dBASE III PLUS 

Test in PC International 9/87 
"... Es ist die optimale 
Ergänzung zu dBASE II." 

Die neue, einfache Möglichkeit 
lür Anwender von dBASE 11/111+ 
Benutzeroberfläche für Kunden, 

Lager, Verein, Sachbearbeitung, 

Handwerk und Kleinbetrieb... 
menügeführt-umfangreich-leicht 
Anwendung ohne Programmieren 
Spart Zeit. Geld und Nerven 
varDAT II 199,- DM 
varDAT 111+ 499,- DM 
gegen Scheck oder NN (+10 DM) 

MS-DOS 5 1/4- o. 3,5-Disk 
CP/M 3" für CPC, Joyce u. 9512 
Info direkt von: 

SOFTDESIGN Horstmar Konradt 
Am Lindenplatz 29 B, 4040 Neuss 1 
Tel. 02101/470633 G 


CPC SCHNEIDER INT. 3/8610/87 
komplett DM 65, Tel. 04435/1332 


Sensationell 

Von Lehrern im Deutschunterricht 
erprobt: Der intelligente 
Rechtschreibtrainer erfaßt alle 
Probleme der deutschen Rechtschreibung. 
Abstimmung auf individuelles 
Leistungsniveau möglich. Ausführliche 
Fehleranalyse. Preis: ab DM 59. Info: 

H Gneiting, Poslf.. 7319 Dettingen/Teck G 


ACW-SOFT MEINT: 

WER B WIE D(B)ASE SAGT, DER 
MUSS AUCH A WIE (A)SSI SAGEN! 
ASSI ist die deutsche Benut¬ 
zeroberfläche für DBASE II 
unter CP/M. Unterstützt alle 
Dateibearbeitungsfunktionen 
wie Editieren/Drucken/Rechnen/ 
Bedingungen und Extras wie 
DIR/Kopieren/Umbenennen... 

Komfortable Pull-Down Menüs! 

ASSI (für dBASE II) 79- 
KICK CP/M Benutzeroberfl. 49,- 
Testerfolg PC Int. 2/88! 

TOPDAT Adreßverwaltung 79,— 
WORDSTAR-ZUBEHÖR Fußnote 49- 
WORDSTAR-LiteraturvervV. 49,- 
PUBLIC DOM. HITS 1 Unera. 39,- 
PUBLIC DOM. HITS 2 Disked 39,- 
SPIELE DISK Mühle ua. 39,- 
MODEM SOFTW. JOYCE Kermit 39,- 
TPASCAL PROGR. DEUTSCH 39,- 
DBASE II Bücherverwaltung 39,— 

COBOL Lehrgang f. MSCOBOL 39,- 
ACW UTILITIES JOYCE/CPC 39- 
HILFsmenüs Wordstar CP/M 39- 
acw-soft, Breite Str. 16, 5300 Bonn G 


Future-Softü! 

Schreibt für Sie Programme auf 
Wunsch!! Info geg. 1,- DM (Münze): 

K. Schulz, Pf. 80, 7184 Kirchberg/Jagst 


PROFESSIONELLE FINANZ-BUCHHAL¬ 
TUNG für die Anforderungen mittel- 
ständ. Betriebe: Kontenzahl beliebig, 
Saldenliste, Bilanz, GuV, indiv. (!) 

BWA, Einn.-Überschuß-Rg., USt, 
rechn. Konten (DATEV-Kontenrahmen). 
INCL. FINANZMATHE: Tilgungspläne, 
Zinsen, Annuitäten, Raten, Rente, AfA 
(16 Prog.) (und ÜBERWEISUNGS¬ 
DRUCKPROGRAMM, nur für Joyce). 
INCL. 1000 Kontenblätter, versandko¬ 
stenfrei zum Niedrigpreis 
PCW JOYCE 133 DM * IBM-Kompatible 
198 DM - Fa. Keilmann, 

Wilhelmstr. 71, 4400 Münster - G 


Biete an Hardware 


Matrix-Drucker 

Star LC 10 centr. nur 589,— 

Star LC 10 C nur 589,- 
Star LC 24-10 centr. nur 889,— 
dt. Ware 1 Jahr Garantie. 

Porto trei + 3,- NN Gebühren 
Heinrich Bruhns, Versandhandel 
EDV, Thüler Str. 36, 

2908 Friesothe, Tel. 04491-839 G 


CPC 6128 + Disks + DMP 2000 + JOY 
+ PC-Hefte ab 8/86, VHB 1500 DM 
Tel: 0 82 82/75 06 


Zweitlaufwerk 360 K, 5 1/4" mit 
Einbaurahmen für 1512/1640, VB 180,— 
Tel. 04954/1493, nach 18.00 


CPC 464 KEY/MP2/DD1/Dartscanner 
BTX-Modul/Mult/Face2/Software 
Hefte 950,-. Tel. 0718176612 


CPC 464/Farbm./DD1/Spiele Dis¬ 
ketten + Kassetten/Lernmaterial 
Tel. 0841/75355. VB 1200.- DM 


Grünmonitor GT 65 + defekten CPC 664 
abzugeben. VB 100,- DM. 

Thomas Wiedemuth, 0 23 33/7 33 96 


CPC 664, GT 65, SP256 Vortex-Zweitlauf 
werk, VB 850,-, Tel. 061 44/2460 


Joyce PCW 8256, zzgl. 5 1/4-Laufwerk 
720K, formatiert mit dBase II und Wordstar 
Wegen Systemwechsel zu verkaufen. 

Tel. 02256/1723 


JOYCE 512KB-RAM, Gerdes-MAUS, CPS 
8256, Anschlag, 2 Joysticks + Interface. 
Viel Literatur. TPascal 3.0, C Basic, XBC- 
Compiler. Super-Copy. 14 Org.-Games, Utili 
ties u.v.m Insgesamt 35 Disks! 

VB: 1200 DM. Tel. 09344/1211 


Lichtgriffel nur DM 49,— 

tersand gegen Scheck/Nachnahme. Info 
gratis! Computer bitte angeben! Anschluß 
an jeden (!) Computer möglich. Standard¬ 
version für Schneider lieferbar. Firma 
Schißlbauer, Postfach 1171 R, 8458 Sulzbach, 
09661/6592 od. 0941/999915. bis 21 Uhr G 


Vidi-Video-Digitizer tür CPC 464/664, 
DM 250-, Tel. 09352/7233 


DMP 2000. Tel. 05731/29332 


EDVZUBEHÖR JOYCE-PCW-CPC-PC 


Farbbänder zu Traumpreisen! 


MAXELL 3“ SUPERPREIS! 


Diskettenlaufwerke 3,5“ 
PCW/1512/1640 anschlußfertig 


PCW Logitech-Maus f. DR Draw 

DR Graph, DTP u.a. Programme 

m. Benutzeroberfläche JEEVES 


CPC SPIELE ZUM SONDERPREIS! 


PCW + PC 1512 Bildschirmfilter 


PCW PAPIERFÜHRUNG 8256/9512 


Joyce 8256 Printer Stand 80 


COMAL-80 MODUL FÜR CPC 


LocoSript 2.16 m. D. Handbuch 

Loco Mail/Font/Spell/File 


COMAC KASSE/LITBOX/LV/CHART 


Trojan's Cadmaster Pack 


Public-Domain Software CP/M 
MS-DOS Liste gegen 5,- 


INFOLISTE KOSTENLOS! 


B. Welzel & Wunsch GbR. 

Swebenhöhe 47, 2000 Hamburg 72 

T. 0 40/6 43 64 47 BTX 0406436447 G 


Colormonitor für CPC, Preis VS, 
Tel. 07332'4145,15.00-18.00 


CPC 6128, grün, VORTEX-Lfw. F1-X. 
Drucker NLQ401, Gerdes-Maus, 
Word star, HiSoft-C, Public-Domain, 
div. Software, Bücher, 
komplett 1200,- DM. M. Liefland,, 
Tel. 07531/88 23 56, tagsüber 


Suche Software 


Suche Turbo-Pascal für CPC 464, 
Tel. 030/7450596, ab 16.00 Uhr 


SUCHE FÜR JOYCE: 
Multiplan, Loco-Script II 
Tel. 0 75 31/2 22 89 


Suche Hardware 


SUCHE CPC 464 Tastatur + Vortex 
Speichererwtrg., gebraucht. Angebote 
ab 18.00 an: Söring, 05361/71074, 
ab 08.01.89 


Achtung! Suche 256K-Silicondisc 
(Dk'Tronics), günstige Angebote 
an: 04422/4405 


Suche MP-1, Tel. 0201/302875 


Verschiedenes 


CPC-INTERN. 4/85 (o. 5)-9/87 
Sonderhefte CPC 1-4 + Joyce 1 
gegen Gebot. 04871/2195. ab 18h 


JAMASYS-Modul rettet PC-Umsteigern 
Daten und eigene Programme, 
vom CPC d. Transfer ü. parallele Schnittst. 
NEU! NN DM 169,-. Info/Bestellung bei: 
CONCEPTION GmbH Hubertusweg 14. 
2000 Hamburg 61 G 


Beschrifte Musik-Kassetten mit 
Computer. Info gg. Freiumschlag. 
0. Reuß, Nürtinger Str. 5, 

7443 Frickenhausen 


Diskettenbuch! Schon bekannt? 

Jetzt kennenlernen auf 3-Disk 
(CPC + PCW) mit ausgewähltem 
Titel für 10 DM: HARY. Gärtnerstr. 14, 

6602 Dudweiler (+ Liste) G 


Haben Sie noch unveröffentlicht selbster 
stellte Programme in Ihrer Schublade? 
Hardware-Bastelei? Autoren für ein CPC 
Sammelwerk gesucht! 

Schneider, Am Weinberg 46, 8301 Arth G 


PC 512/1640 User-Club sucht noch 
Mitglieder. Mtl. Zeitschrift. Software 
etc. Info von R. Knorre, Pf. 200102, 
5600 Wuppertal 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von: 
JOYCE-USER-CLUB c/o Je. Berghof, 
Roseggerstr. 5,5600 Wuppertal 2 


Clubs 


Die Kontaktadresse: 
Schneider-Computer-Club München 
c/o Helmut Jungkunz 
Zacherlstr. 14 
8045 Ismaning 
Tel. 089/969374 
M & T Mailbox: SCUG 


Zu meiner letzten Anzeige: 

Bitte nicht mehr anrufen, die Drähte glühen 
schon! Schreibt lieber, CPC-User aller 
Länder! 

Karsten Dühren 
Ahornweg 14 
6056 Heusenstamm 
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Hamburg 


Berlin 


Ihr Computer-Partner für 


W. Müller & J. Kramke GbR 
Schöneberger Str.5 -1000 Berlin 42 
Tel. 030-752 91 50/60 


Computerei 


Löhne/Ostwestfalen 


Nürnberg 


Frankfurt/Main 


Händlerverzeichnis 


Eintragungen 
im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 
6, - DM bei einer 
Spaltenbreite von 
58 mm. 


PC's/AT's-C 64/128 
Amiga-PCW 
Computer-Drucker 
i Zubehör-Software 
I Spiele-Service 


PC Hard- und Software 

Branchen- u. Sonderlösungen 


DATEN-TECHNIK 


Microsoft AMSTRAD Siemens 
- Vertragshändler - 

2 HH 70 - Wandsbeker Zollstr. 98 
® 6560036 • Fax 6567457 


Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 


EtC GUTE IDEE NACH DER AfCEREN 

Schuster Electronic 


GmbH 


Schneider 

.'SWÜfKWvMW 

Vertrags handirr 

Commodore 

Vertragswerkstatt 


^vbüroelectronic^M 

Holländische Str. 121,3502 Vellmar. Tel.: 05 61 /82 81 60 


Nähere Informationen 


DMV-Verlag 
Wolfgang Brill 
Telefon (05651)8009-51 


Obere Munsterstr 33 4620 Castrop - Rauxel < 02305 ) 377 oJ 


Computer & Softeareaslnri für NordfleucscftiM 
AMSTRAD SCHNFLOFR 4 V0R1EX RejmreHJmfci 4 SERVICE 
CENTRALE. Saum Comouitr. Drucker, Peripherie 4 Zutelxu 
. A-Z. EDVPaucrelc • DScs 

f ritz 08ERMEIEH COMPUTER-IFUFAX-BTX-H#i-VIDE0-TV- 
+ NCC-FPSON-TA-NOON-BROTHER-SEIKO-OKI-STAR-LOCO-tlC 
am Bahnhol-Büitder Straße 20-49/? IÖHNF t-Tel 0573? 6126132« 


»Schneider 


i» irrn nu ucmN 
u i L.K uinznui i 


Beratung 


Vertrieb I - \ • 1 * 

Service 

BÜRO-ORGANISATION OATENTECHNIK Vcnriebsgesellschall mbH 
4000 Düsseldorf 1 Fnedenslraße 13 Tel 0211/308071 


Anzeigenschluß 
für die 

Ausgabe 4/89 
von 

PC International 
ist der 

10.2.89 

Erscheinungstermin 
ist der 

29.3.89 


Micro-Compuier. Peripherie und Software GmbH 


'AMSTRAD. SCHNEIDER, SHARP, COMMODORE,^ 
NEC, STAR. EPSON, SOFTWARE-ERSTELLUNG 
Gibitzenhofslr. 69. 8500 Nürnberg 70. Tel. 0911/425018 


Offizieller Partner von • Amstrad • Delta Gold • NEC * Vor¬ 
tex • Synthetronic ■ Quantor • DELA • Markt & Technik Ver¬ 
lag - Hüthig Verlag • SybexVerlag • Boeder -DataTedwics 
• Maxell * Kao • InterQuadram • 

Ständig aktuelle Angebote auch für Addonics, Atari ST, Ami- 
ga. Oceanic und viele mehr. Mit dem Background, den nur 
ein Fachgeschäft bieten kann: Aut die allermeisten Geräte 
1 volles Jahr Garantie. Support bei Problemen, Wartungs¬ 
verträge usw. Und das Ganze mitten in Frankfurt: 

Zeil 26 (gegenüber Stadtbücherei, Nähe Konstablerwache) 
Petersen Computer KG 


Vertragshändler 


Computer Knüppel AG 

Computer und Büromaschinen 

Riehenring 81 (MUBA) 

4058 Basel 

Telefon (061)691 1262 


Fax (061) 691 0051 
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I—Vorschau 


3/89 

»PC International« 
erhalten Sie ab 
22. Februar bei Ihrem 
Zeitschriftenhändler 


CPC-Programme: 


Funktionsplotter 

— Wer sich mit dem Zeichnen von Funk¬ 
tionen abquält, ist selber schuld. Un¬ 
ser Funktionsplotter hilft Ihnen 
weiter. 


Der Funktionsplotter für den CPC hilft Ihnen 
beim Zeichnen von Funktionen. 


Endlich ein Texteditor unter CP/M plus, 
der besser ist als alles andere, was Sie ge¬ 
sehen haben. 

Die Funktionen sind wie unter Wordstar. 


Tips & Tricks: 

Eine gute Nachricht: Wegen der hohen 
Nachfrage wird es ein erweitertes Ange¬ 
bot von lKB-Programmen geben. Also 
schicken auch Sie Ihr “selbstgestricktes“ 
lKB-Programm an uns. Es gibt schließ¬ 
lich auch was zu gewinnen. 

Disc-Repair bringt defekte Sektoren auf 
der Diskette auf Vordermann. 

Ein genialer Einfall schützt Ihr Directory 
vor ’Read Fails’. Ein Programm, das je¬ 
der CPC-Besitzer haben muß! 


Bericht: 


Versäumen Sie nicht die nächste Ausga¬ 
be, dort erleben Sie, wie mehr Grafik aus 
dem CPC geholt werden kann. 

Spezielle Routinen schaffen außerge¬ 
wöhnliche Grafiken. Erstaunlicherweise 
sind die Programme sehr kurz. 
Abschließend finden Sie eine Übersicht 
der grafischen Hilfsmittel für den CPC. 


PCW: 


Wie die Systemabfrage aus Mallard-Ba- 
sic funktioniert, erfahren Sie in unserem 
Joyce-Artikel. 

Besitzen Sie eine Eigentumswohnung? 
Dann können Sie aufgrund des Tilgungs¬ 
satzes die Rückzahlungsdauer errechnen. 


Kosten 



Ein Finanzierungsplan hilft Ihnen beim Berech¬ 
nen der Eigentumswohnung. 


PC: 


Grafiken über Grafiken. Lissajous-Gra- 
fiken zeigen sich von ihrer schönsten PC- 
Seite. 

Harriman, der kleine, große Fresser vom 
PC-Dienst. Ein Actionspiel für groß und 
klein. 

Für Lerneifrige bietet sich unser komfor¬ 
tabler Vokabeltrainer für den PC an. 


Die Inserenten 


ARNOR.43 

Büro für Softwareentwicklung...66 

CMZ-Verlag.66 

CSV Riegert.61 

Delo-Computer.54 

DMV.2,57,65,71,73,84,85 

.89,103,104 

Dobbertin.31 

G + L Elektronik.87 

Göddeker.87 

Kosnialla + Partner.9 

Kotulla.68 

Krebs-Elektronik.83 

Mimsoft.9 

PR8-Soft.11 

ProSoft.13 

Schuster.52,53 

Strauß Elektronik.31 

Unikat.54 

Weeske.40,41 

Werder.83 

Wiedmann.61 

Van der Zalm.54 



Einfach zu program¬ 
mieren, trotzdem 
schön anzusehen. 
Lissajous-Grafiken 
auf dem PC. 
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Amstrad 


CPC • PCW JOYCE • PC 


CPC-Grtflk 


Hilfe 

Alles 
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Im Inland bzw. West Berlin: 6 Ausg. = 30,- DM 

12 Ausg. = 60,- DM 

Im europäischen Ausland: 6 Ausg. = 45,— DM 

12 Ausg. = 90,- DM 


Schwarzweiß oder weißschwarz 


diese Frage beschäftigt Zoologen schon seit Jahrzehnten. 

Im Zusammenhang mit Ihren CPC und JOYCE 
Computern gibt es natürlich auch eine ganze Reihe 
offener Fragen. 

Diese werden kompetent von Ihrer PC Amstrad 
International beantwortet. 

Alles klar! - Dann sollten Sie jetzt 
abonnieren! 


PC Amstrad International kostet im Abonnement: 


Ein Abonnement 
ist praktisch und gewährt 
zusätzlich noch Preisvorteile. 


Bitte benutzen Sie 
die Bestellkarte 


Im außereuropäischen Ausland: 6 Ausg. = 60,- DM 

12 Ausg. = 120,- DM 


DMV Verlag - Postfach 250 - 3440 Eschwege 







Wissen äla carte! 

Themen-Sonderhefte von DMV 


CPC-Sonderheft Nr.7 

Das neue CPC-Sonderheft ist da! 

Mit dem neuen CPC-Sonderheft er¬ 
schließen Sie sich eine völlig neue 
Welt der Software. Eine geballte La¬ 
dung hochwertiger Programme aus 
den Bereichen Anwendung und 
Spiel wird die Herzen aller CPC- 
Besitzer (und die Taktfrequenz aller 
CPCs) höher schlagen lassen. 

Die informativen Grundlagenartikel 
vermitteln interessante Themen auf 
leicht verständliche Art, ideale Lektü¬ 
re für Einsteiger und Fortgeschritte¬ 
ne. Programmierer werden ihre eige¬ 
nen Programme künftig noch effekt¬ 
voller gestalten können, eine große 
Sammlung von Tips & Tricks zu Ba¬ 
sic, Assembler und CP/M bietet ein 
äußerst vielfältiges Spektrum für alle 
möglichen Anwendungsgebiete. Für 
die Hardware-Freunde haben wir ei¬ 
nen kompletten und absolut lei¬ 
stungsstarken Sprachsynthesizer 
vorbereitet. Die komplette Bauanlei¬ 
tung sowie die zugehörige Software 
erwarten Sie im neuen CPC- 
Sonderheft. 



Einige Beispiele aus dem Inhalt: 

Anwendungen: 

- Music-Star ist ein Programm der Super¬ 
lative. Per Joystick sind Sie in der Lage, ei¬ 
gene Musikstücke schnellstens zu pro¬ 
grammieren. Die entsprechenden Noten 
werden dabei ständig auf dem Bildschirm 
angezeigt, es gibt viele Optionen zur Ma¬ 
nipulation und Nachbearbeitung. Musik¬ 
fans dürfen diesen Hit nicht versäumen. 

Spiele: 

- Auxilia entführt Sie in die Welt von Magie 
und Zauber. Ein packendes Strategie- und 
Actionspiel, (auf anderen Computern 
auch unter ARCHON bekannt) 

- Mit Supertron 3D erwartet Sie ein effekt¬ 
volles Actionspiel mit echter 3D- 
Atmosphäre. 

Tips & Tricks: 

- Wie Sie ihre selbstgeschriebenen BASIC- 
Programme erheblich verkürzen können 
zeigt unser BASIC-Programmcode- 
Kompressor. 

Hardware: 

- Komplette Bauanleitung für einen 
Sprachsynthesizer. Die zugehörige Soft¬ 
ware sucht ihresgleichen, vergleichen 
Sie. 

Grundlagen: 

- Ausführlicher Bericht über den Floppy- 
Controller und seine Programmierung. 
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Das CPC-Sonderheft Nr. 7 ist überall im Handel er¬ 
hältlich und kostet 14,- DM’. Best.-Nr. 313 


Sonderhefte 1/86 und 2/86 

Software - Llstings - Infos für alle Schneider CPCI 
Sonderheft 1 beinhaltet eine abwechslungsreiche 
Sammlung beliebter und nützlicher Programme aus 
den Sparten Anwendung. Spiel und Tips & Tricks. 
Der große DFÜ-Sonderteil zeigt Ihnen alles Wis¬ 
senswerte zur Datenfernübertragung auf und vermit¬ 
telt Basiswissen. Insgesamt 28 aktuelle Listings - 
Software satt im CPC Sonderheft 1/86! 

SH-Nr.1 Best.-Nr.: 307 14.- DM* 

SH-Nr. 2 Best.-Nr.: 308 1 4, - DM * 


Sonderheft 3/86: 

Reviews - Spiele - Anwendungen- ein wahres 
Hit-Sammelsurium birgt.,das CPC-Sonderheft 3/86. 
Die Spielprogramme Im Überblick und viele Tips. Lö¬ 
sungen und Karten zu Computerspielen und Aben¬ 
teuern. Begeistern wird Sie auch der Flugsimulator 
- ein echter Leckerbissen zum Eintippen! Fantasy- 
und Adventurefreunde werden sich über das erste 
Rollenspieladventure Monstergarten sicherlich ge¬ 
nauso freuen, wie die Hardware-Freunde über die 
Echtzeituhr zum Selbstbau. 

Best-Nr : 309 14,- DM* 


Die Databox dazu besteht aus zwei 3“ Disketten (je 
24,- DM*), bzw. Kassetten (je 14,- DM*). 

Im günstigen Kombipack erhalten Sie beide 
Disketten für 38.- DM*, oder Kassetten nur 25.- DM*. 


Sonderheft 5/87 

Power für Ihren CPC! Über 500 KByte leistungsstar¬ 
ke Software aus vielen Anwendungsbereichen brin¬ 
gen Ihren CPC auf Trab. Ob Einsteiger, Fortgeschrit¬ 
tener oder Profi - hier finden Sie alles, was Ihr Com¬ 
puter braucht. Viele Tips & Tricks, Grundlagenarti¬ 
kel. Spiele und Anwendungen lassen dieses 
Sonderheft zu einer unentbehrlichen Arbeitshilfe 
werden, 

Best.-Nr.: 311 14,-DM* 


Sonderheft 4/87 

Programmiersprachen - Anwendungen in Turbo- 
Pascal und mannigfaltige Informationen stehen im 
Mittelpunkt des 4. CPC-Sonderheftes. Mit über 200 
Seiten praller CPC Informationen, Tips und wertvol¬ 
len Programmen, das ideale Sammelsurium für je¬ 
den CPC-Anwender. Interessiert!? - dann sollten 
Sie sich schnell entscheiden, denn es sind nur noch 
wenige Restposten verfügbar. 

Best.-Nr.: 310 14, - DM • 


Sonderheft 6/88 

Grundlagen, viele Tips, nützliche Anwendungen 
und tolle Spielprogramme - ein Muß für jeden CPC- 
Anwender. Dieses Sonderheft behandelt das ge¬ 
samte Spektrum möglicher CPC-Einsatzgebiete und 
bietet Informationen für jedermann. U.a. komplette 
Lagerbuchführung, relative und sequentielle Datei, 
neues Disketten-DOS. viele Lernprogramme, CP/M 
und Turbo Pascal und, und. und... 

Best.-Nr:312 14,- DM* 
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